Skip to content

Instantly share code, notes, and snippets.

@lyricallogical

lyricallogical/FizzBuzz.hs

Forked from konn/FizzBuzz.hs
Created October 10, 2011 15:04
Show Gist options
  • Save lyricallogical/1275549 to your computer and use it in GitHub Desktop.
Save lyricallogical/1275549 to your computer and use it in GitHub Desktop.
Download ZIP
コンパイル通るか知りません こんな感じのほうが人間に優しいのでは…！
Raw
FizzBuzz.hs
fizzbuzz = zipWith max (map show [0..]) fb
where
fb = zipWith (++) f b
f = cycle ["Fizz", "", ""]
b = cycle ["Buzz", "", "", "", ""]
main = mapM_ putStrLn $ tail $ fizzBuzz
@lyricallogical
Copy link
Author

ほんとですね、うっかりしてました。

@lyricallogical
Copy link
Author

ゴルフ厨だ～ http://twitter.com/#!/notogawa/status/123416323702259712

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment