関数型言語ML(SML, OCaml, etc.), Part 5at TECH関数型言語ML(SML, OCaml, etc.), Part 5
- 暇つぶし2ch239:デフォルトの名無しさん 08/01/30 17:18:38 >>237 ありがとうございます~~~ 少しずつ型チェックってなんのかわかってきました.いろいろ書いてみます!
let rec cntRandom n zeroCnt oneCnt= if n = 0 then zeroCnt else ( if ((Random.int 2) = 0) then cntRandom (n-1) (zeroCnt+1) oneCnt else cntRandom (n-1) zeroCnt (oneCnt+1) );;