Ticket #9428: s17.hs

File s17.hs, 1.6 KB (added by terrelln, 5 years ago)

s17.hs

Line 
1data T = A | B
2
3f :: T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> T -> Int
4f A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 1
5f _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 2
6f _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 3
7f _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 4
8f _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 5
9f _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 6
10f _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 7
11f _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 8
12f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 9
13f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ _ _ = 10
14f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ _ _ = 11
15f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ _ _ = 12
16f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ _ _ = 13
17f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ _ _ = 14
18f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ _ _ = 15
19f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A _ _ = 16
20f _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ A A = 17
21f A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B A B = 18
22
23
24main = print $ f A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A A