JS
Size: a a a
JS
JS
JS
JS
JS
[ case n ^ 4 `mod` 15 of
0 -> "FizzBuzz"
6 -> "Fizz"
10 -> "Buzz"
1 -> show n _ -> error "impossible"
| n <- [1..100]
]MK
LV
foo xs ys и заменить на bar (xs ++ ys) где foo и bar конкретные имена, а xs и ys – любые выражения. Типа как rewrite rules только своими руками https://downloads.haskell.org/~ghc/7.0.3/docs/html/users_guide/rewrite-rules.htmlMK
MK
LV
LV
LV
MK
LV
MK