2007-08-30から1日間の記事一覧

FizzBuzz

TraversableでもFizzBuzzに再び挑戦。Haskellに見えない。 import Data.Traversable main = for [1..] (\i -> if (i `mod` 15 == 0) then putStrLn "FizzBuzz" else if(i `mod` 3 == 0) then putStrLn "Fizz" else if(i `mod` 5 == 0) then putStrLn "Buzz" …

Haskellで多重forループを書く

ArrowとかApplicativeとかTraversableとかいろいろ使ってコードを書いてみたいなということで、どう書く?orgに登録しました。とりあえずforループで4つほど書いて見ました。おもしろかったのは、ピラミッドを作ると逆順になるあみだくじ。自然に2重ループが…