14 lines
318 B
Haskell
14 lines
318 B
Haskell
wordthing :: [(Int, String)] -> Int -> String
|
|
wordthing lst n =
|
|
if matches == [] then
|
|
show n
|
|
else
|
|
concat $ map snd matches
|
|
where matches = filter (\x -> n `mod` (fst x) == 0) lst
|
|
|
|
fizzbuzz :: Int -> String
|
|
fizzbuzz = wordthing [(3, "Fizz"), (5, "Buzz")]
|
|
|
|
main = do
|
|
mapM_ (putStrLn . fizzbuzz) [1..100]
|