Haskellでプログラムを書く勉強会#0の成果

fizzbuzz0.hs

main = putStrLn $ concat $ map addln $ map fizzbuzz [1..20]

addln str = concat [str, "\n"]

fizzbuzz a = if (a `mod` 3) == 0 then "fizz"
             else if (a `mod` 5) == 0 then "buzz"
                  else show a

fizzbuzz1.hs

main = putStrLn $ concat $ map addln $ map fizzbuzz [1..20]

addln str = concat [str, "\n"]

fizzbuzz a | (a `mod` 15) == 0 = "fizz buzz"
           | (a `mod` 3) == 0 = "buzz"
           | (a `mod` 5) == 0 = "buzz"
           | otherwise = show a

fizzbuzz2.hs

import System

main = do
  args <- getArgs
  putStrLn $ unlines $ fizzbuzz (read $ head args)

fizzbuzz n = map _fizzbuzz [1..n]

_fizzbuzz a | (a `mod` 15) == 0 = "fizz buzz"
            | (a `mod` 3) == 0 = "buzz"
            | (a `mod` 5) == 0 = "buzz"
            | otherwise = show a