Skip to content

Instantly share code, notes, and snippets.

@slimane

slimane/ｆizzBuzz.hs

Last active August 29, 2015 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save slimane/9246510 to your computer and use it in GitHub Desktop.
Save slimane/9246510 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ｆizzBuzz.hs
module FizzBuzz(fizz, buzz, gizz, hizz) where
-- しよういめ～じ
-- fizzz . buzz . gizz . hizz $ (542, "")
hizz (n, s) = fizzBuzz (n, 9) "Hizz" s
gizz (n, s) = fizzBuzz (n, 7) "Gizz" s
buzz (n, s) = fizzBuzz (n, 5) "Buzz" s
fizz (n, s) = fizzBuzz (n, 3) "Fizz" s
fizzBuzz (n, d) word s = (n, prefix ++ postfix)
where
n' = show n
postfix = if s == n' then "" else s
prefix = if n `mod` d == 0 then word
else if postfix == "" then n' else ""
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment