差分

ナビゲーションに移動 検索に移動

Fizz Buzz

255 バイト追加, 2014年9月1日 (月) 03:55
|m 3 = "fizz"
|True = show n where m x = mod n x == 0 in map f [1..100]
</source>
 
===F#===
[[F Sharp|F#]]による実装。
<source lang="fsharp">
[1..100]
|> Seq.map (function
| x when x%5=0 && x%3=0 -> "FizzBuzz"
| x when x%3=0 -> "Fizz"
| x when x%5=0 -> "Buzz"
| x -> string x)
|> Seq.iter (printfn "%s")
</source>
匿名利用者

案内メニュー