練習問題 8.10

print_int 関数を stdout, output_string などを用いて定義しなさい。

予備知識

output_string stdout "aaa";;
aaa- : unit = ()

print_int 32;;
32- : unit = ()

解答

let print_inte n =
    let s = ref "a" in
    s := string_of_int n;
    output_string stdout !s;;

実行例

print_inte 33;;
33- : unit = ()

Tweet