FizzBuzz

gistfile1.hs

-- http://d.hatena.ne.jp/fumokmm/20110815/1313405510

import Data.List (find)

makeAlist :: [String] -> [(Int, String)]
makeAlist [] = []
makeAlist (a:b:rest) = (read a, b):makeAlist rest

fizzbuzz :: [(Int, String)] -> [String]
fizzbuzz alist = map f [1..]
    where f i = case find g alist of
                  Just (_, s) -> s
                  Nothing -> show i
              where g (j, _) = i `mod` j == 0

main :: IO ()
main = mapM_ putStrLn $ take 100 $ fizzbuzz (makeAlist ["3", "Fizz",
                                                        "5", "Buzz",
                                                        "7", "Hoge"])