OCamlで数あてゲームを書いてみる

2014/03/10

ocaml

t f B! P L

以前、Haskelで数当てゲームを書いてみた(Haskellで数あてゲームを書いてみる | Hiroaki's blog)のだが、今度はOCamlで書いてみた。Js_of_ocamlなんてのを今更ながら知ったので、OCamlもありかなぁなんて。


(* 数あてゲーム *)

(* 4桁の数を作る - これをユーザが当てる *)

(* 同じ数が既にあるかチェックする *)
(* chkvalue : int list -> int -> bool *)
let rec chkvalue lst target = match lst with
     [] -> false
   | first :: rest -> if first = target then true
        else chkvalue rest target

(* 数をリストに追加する。このとき、同じ数が追加されないようにする *)
(* appendvalue: int list -> int -> int list *)
let appendvalue lst v = if chkvalue lst v then lst
   else v :: lst

(* 4桁の数を作る *)
(* makevalue: int list -> int list *)
let rec makevalue lst = if List.length lst = 4 then lst
   else makevalue (appendvalue lst (Random.int 10))

(* blowを数える。ただし、hitもblowとしてカウントする *)
(* chkblow: int list -> int list -> int *)
let rec chkblow userlst complst = match userlst with
        [] -> 0
      | first :: rest -> if chkvalue complst first then 1 + chkblow rest complst
           else chkblow rest complst

(* hitを数える *)
(* chkhit: int list -> int list -> int *)
let rec chkhit userlst complst = match (userlst, complst)  with
    ([], []) -> 0
  |([], first1 :: rest1) -> 0
  |(first1 :: rest1, []) -> 0
  |(first1 :: rest1, first2 :: rest2) -> if first1 = first2 then 1 + chkhit rest1 rest2
      else chkhit rest1 rest2

(* 数値を1桁の配列にする。ただし、逆順になる *)
let rec strarray userval = if userval < 10 then userval :: []
      else userval mod 10 :: strarray (userval / 10)

(* game main *)
let rec judge userval complst = let userlst = strarray userval in
    let hit = chkhit userlst complst in
    let blow = chkblow userlst complst in 
    if hit = 4 then print_string "4 hit!"
    else begin
        print_int hit;
        print_string " hit ";
        print_int (blow - hit);
        print_string " blow";
        print_newline ();
        print_string "? ";
        judge (read_int ()) complst
      end

let kazuate = begin
    print_string "? ";
    judge (read_int ()) (makevalue [])
end
これを適当な名前で保存して、ocamlインタプリタで読み込むと、ゲームスタート。


「基礎」とは言いながら、実は奥が深い一冊。ある程度知識がないと、その奥行きに気付かない。OCamlの本は、他にどんなのがいいんだろう?


楽天で探す
楽天市場
にほんブログ村 IT技術ブログへ

人気の投稿

ブログ アーカイブ

自己紹介

開発からSREにクラスチェンジしました。

アフィリエイト

  • 当ブログ「Hiroaki's blog」は、amazon.co.jpを宣伝しリンクすることによってサイトが紹介料を獲得できる手段を提供することを目的に設定されたアフィリエイト宣伝プログラムである、Amazonアソシエイト・プログラムの参加者です。
  • 当ブログでは、第三者配信による広告サービスを利用しています。このような広告配信事業者は、ユーザーの興味に応じた商品やサービスの広告を表示するため、当サイトや他サイトへのアクセスに関する情報 (氏名、住所、メール アドレス、電話番号は含まれません) を使用することがあります。このプロセスの詳細やこのような情報が広告配信事業者に使用されないようにする方法については、ここをクリックしてください。
  • アクセストレードアフィリエイトプログラムに参加しています。
  • A8.netアフィリエイトプログラムに参加しています。
  • バリューコマースアフィリエイトプログラムに参加しています。
  • もしもアフィリエイトプログラムに参加しています。

プライバシーポリシー

当サイトにアクセスされる場合、IPアドレスなどの情報または閲覧状況に関するデータが機械的に生成され、場合によっては個人情報と関連付けられる可能性があります。プライバシー保護に関する適用法に準じて、これらの通信および閲覧に関するデータを収集、処理、および利用することがあります。
当サイトにアクセスされる場合、非個人情報(ブラウザの種類、OSの種類、ドメイン名、訪問数、平均滞在時間、ページ・ビューなど個人を特定できない情報)が自動収集される場合があります。当サイトのパフォーマンスやコンテンツを改善する目的で、これらの情報を利用する場合があります。
アフィリエイトでは成果を把握するためにcookie等を利用しています。それ以外の目的で使用されることはありません。詳しくは各社のページにて確認してください。
本サイトに掲載する情報に関しては、正しいものを提供することを務めていますが、掲載内容から、いかなる損失や損害などの被害が発生しても、当ブログでは責任を追いかねます。

QooQ