2007-11-16から1日間の記事一覧
type 'a result = Success of 'a | Failure of string let beers x = let rec bob n = match n with 1 -> print_string "1 bottle of beer on the wall, "; print_endline "1 bottle of beer."; print_string "Go to the store and buy some more, "; Printf…