Haskellでポン! (2)
第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 (以下省略)