OCamlを使ってみよう

OCamlを勉強してみよう。
何かを学ぶときは実際に手を動かすべきだと思ったので、自分で簡単なプログラムを書いてみることにした。 下手くそなプログラムかもしれないけど気にしない。

let rec fizzbuzz n =
  if n > 100 then ()
  else match (n mod 3 == 0, n mod 5 == 0) with
         (false,false) -> print_int n; print_newline (); fizzbuzz (n+1)         
       | (true,false)  -> print_string "Fizz"; print_newline (); fizzbuzz (n+1)
       | (false,true)  -> print_string "Buzz"; print_newline (); fizzbuzz (n+1)
       | (true,true)   -> print_string "FizzBuzz"; print_newline (); fizzbuzz (n+1);;
fizzbuzz 1;;
スポンサーサイト



テーマ : プログラミング | ジャンル : コンピュータ

コメントの投稿

非公開コメント

プロフィール

minoki

Author:minoki
好きなプログラミング言語:
Haskell,Lua
GitHubアカウント
Twitter

最新記事
月別アーカイブ
カテゴリ
検索フォーム