Haskell で FizzBuzz

Compile and Execute Programs Online

fizzbuzz :: Int -> String
fizzbuzz x
    | x `mod` 15 == 0   = "FizzBuzz"
    | x `mod` 3  == 0   = "Fizz"
    | x `mod` 5  == 0   = "Buzz"
    | otherwise         = show x

main = do
    putStr $ unlines $ map fizzbuzz [1..100]

Compiling the source code....
$ghc -O2 --make main.hs -o demo -threaded -rtsopts 2>&1
[1 of 1] Compiling Main ( main.hs, main.o )
Linking demo ...

Executing the program....
$demo
1
2
Fizz
4
Buzz
Fizz
7
8
Fizz
Buzz
11
Fizz
13
14
FizzBuzz
16
17
Fizz
19
Buzz
Fizz
22
23
Fizz
Buzz
26
Fizz
28
29
FizzBuzz
(略)