スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

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

最新記事
月別アーカイブ
カテゴリ
検索フォーム
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。