fork download
copy 
  1. type year = int option
  2. let happy_new_year(year: year) = 
  3.     let f o = match o with
  4. 	  | Some year -> (Printf.sprintf "%d年あけましておめでとうございます。\n" year)
  5. 	  | None -> "年は明けなかった。。。\n"
  6.     in
  7.     print_string(f year);;
  8.  
  9. happy_new_year(Some 2018);;
Success #stdin #stdout 0s 4488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
2018年あけましておめでとうございます。
https://ideone.com/0mszM9
language:
OCaml (ocamlopt 4.05.0)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!