2003-06-27から1日間の記事一覧
let 'a btree = Empty | Node of 'a * 'a btree * 'a btree;; let rec member x btree = match btree with Empty -> false | Node(y, left, right) -> if x = y then true else if x Node(x, Empty, Empty) | Node(y, left, right) -> if x
print_string "Hello world\n";;