Ticket #5522: 5522.hs

File 5522.hs, 2.1 KB (added by igloo, 18 months ago)
Line 
1
2{-# LANGUAGE MonadComprehensions #-}
3
4module Foo where
5
6output :: [Int]
7output = [ x0 + x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8 + x9 +
8           x10 + x11 + x12 + x13 + x14 + x15 + x16 + x17 + x18 + x19 +
9           x20 + x21 + x22 + x23 + x24 + x25 + x26 + x27 + x28 + x29 +
10           x30 + x31 + x32 + x33 + x34 + x35 + x36 + x37 + x38 + x39 +
11           x40 + x41 + x42 + x43 + x44 + x45 + x46 + x47 + x48 + x49 +
12           x50 + x51 + x52 + x53 + x54 + x55 + x56 + x57 + x58 + x59 +
13           x60 + x61 + x62 + x63 + x64 + x65 + x66 + x67 + x68 + x69 +
14           x70 + x71 + x72 + x73 + x74 + x75 + x76 + x77 + x78 + x79 +
15           x80 + x81 + x82 + x83 + x84 + x85 + x86 + x87 + x88 + x89 +
16           x90 + x91 + x92 + x93 + x94 + x95 + x96 + x97 + x98 + x99
17         | x0 <- [0], x1 <- [1], x2 <- [2], x3 <- [3], x4 <- [4]
18         , x5 <- [5], x6 <- [6], x7 <- [7], x8 <- [8], x9 <- [9]
19         , x10 <- [0], x11 <- [1], x12 <- [2], x13 <- [3], x14 <- [4]
20         , x15 <- [5], x16 <- [6], x17 <- [7], x18 <- [8], x19 <- [9]
21         , x20 <- [0], x21 <- [1], x22 <- [2], x23 <- [3], x24 <- [4]
22         , x25 <- [5], x26 <- [6], x27 <- [7], x28 <- [8], x29 <- [9]
23         , x30 <- [0], x31 <- [1], x32 <- [2], x33 <- [3], x34 <- [4]
24         , x35 <- [5], x36 <- [6], x37 <- [7], x38 <- [8], x39 <- [9]
25         , x40 <- [0], x41 <- [1], x42 <- [2], x43 <- [3], x44 <- [4]
26         , x45 <- [5], x46 <- [6], x47 <- [7], x48 <- [8], x49 <- [9]
27         , x50 <- [0], x51 <- [1], x52 <- [2], x53 <- [3], x54 <- [4]
28         , x55 <- [5], x56 <- [6], x57 <- [7], x58 <- [8], x59 <- [9]
29         , x60 <- [0], x61 <- [1], x62 <- [2], x63 <- [3], x64 <- [4]
30         , x65 <- [5], x66 <- [6], x67 <- [7], x68 <- [8], x69 <- [9]
31         , x70 <- [0], x71 <- [1], x72 <- [2], x73 <- [3], x74 <- [4]
32         , x75 <- [5], x76 <- [6], x77 <- [7], x78 <- [8], x79 <- [9]
33         , x80 <- [0], x81 <- [1], x82 <- [2], x83 <- [3], x84 <- [4]
34         , x85 <- [5], x86 <- [6], x87 <- [7], x88 <- [8], x89 <- [9]
35         , x90 <- [0], x91 <- [1], x92 <- [2], x93 <- [3], x94 <- [4]
36         , x95 <- [5], x96 <- [6], x97 <- [7], x98 <- [8], x99 <- [9]
37         ]