kryozahiro https://blog.hatena.ne.jp/kryozahiro/ kryozahiro’s diary https://kryozahiro.hateblo.jp/ Haskell Twitter見てたらFizzBuzzの話題が流れてたので書いてみた。最初に考えたのがこれ。引数 n 以下のFizzBuzzを文字列にして返す再帰関数を定義した。 fizzbuzz 1 = "1" fizzbuzz n = fizzbuzz (n - 1) ++ " " ++ case (mod n 3, mod n 5) of (0, 0) -> "FizzBuzz" (0, _) -> "Fizz" (_, 0) -> "Buzz" otherwise -> show n main = getLine >>= putStrLn . fizzbuzz . read もっと簡単な書き方をしてる… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkryozahiro.hateblo.jp%2Fentry%2F20100216%2F1266300593" title="HaskellでFizzBuzzやってみた - kryozahiro’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-02-16 15:09:53 rich https://kryozahiro.hateblo.jp/entry/20100216/1266300593 1.0 100%