#!/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』はネストした方がいいのかなぁ。
定石がわからない…