読者です 読者をやめる 読者になる 読者になる

ドル→円変換

#!/usr/bin/env ocaml
open Printf;;

let conv dollar =
  let rate = 114.32 in
  let yen = rate *. dollar in
  let i_yen = int_of_float yen in

  (* printf "(%f)\n" yen; *)

  if (yen -. float_of_int i_yen) < 0.5
  then
    i_yen
  else
    i_yen + 1
;;

let rec input_loop line =
  let dollar = float_of_string line in
  printf "$%.2f" dollar;
  printf " -> \\%d\n" (conv dollar);
  input_loop (read_line ())
;;

input_loop (read_line ());;

セミコロン使うと手続き的に書けちゃうけどいいのかしらん。
『let〜in』はネストした方がいいのかなぁ。
定石がわからない…