Haskellでポン！ (2)

第２回は面接試験を潜り抜けるために、FizzBuzzを書きます。

{- fizzbuzz.hs -}

fizzbuzz_nth :: Integer -> String
fizzbuzz_nth x | mod x 15 == 0 = "FizzBuzz"
               | mod x 3  == 0 = "Fizz"
               | mod x 5  == 0 = "Buzz"
               | otherwise = show x

fizzbuzz = map fizzbuzz_nth [1 .. 100]

main = putStr $ unlines $ fizzbuzz;

>runhugs fizzbuzz.hs
1
2
Fizz
4
(以下省略)