2011年5月18日水曜日

F#入門

F#はじめました。とりあえずFizzBuzz。

let fizzbuzz1 (tgt : int) =
[1..tgt]
|> List.map
(fun n -> if n % 15 = 0
then printf "FizzBuzz\n"
else if n % 5 = 0
then printf "Buzz\n"
else if n % 3 = 0
then printf "Fizz\n"
else printf "%d\n" n)
|> ignore

let fizzbuzz2 (tgt : int) =
[1..tgt]
|> List.iter
(fun n ->
match n with
| _ when n % 15 = 0 -> printf "FizzBuzz\n"
| _ when n % 5 = 0 -> printf "Buzz\n"
| _ when n % 3 = 0 -> printf "Fizz\n"
|_ -> printf "%d\n" n)
|> ignore

いちおうプログラミングF#は流し読みしたけれど、 9割がた抜け落ちてるのでコードを書きつつ読み直してみる。

0 件のコメント:

コメントを投稿