8 lines
251 B
Text
8 lines
251 B
Text
main :: [sys_message]
|
|
main = [Stdout (lay (map fizzbuzz [1..100]))]
|
|
|
|
fizzbuzz :: num->[char]
|
|
fizzbuzz n = "FizzBuzz", if n mod 15 = 0
|
|
= "Fizz", if n mod 3 = 0
|
|
= "Buzz", if n mod 5 = 0
|
|
= show n, otherwise
|