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

個人的自由ノート

ふと自分が気になった事を書いてます

OCamlで問題を解く

open Printf;;
print_string "整数値 : ";;
let num = read_int();;
let rec search n = if num = n then
                     printf "%d\n" n
                   else if num mod n = 0 then
                     begin
                       printf "%d " n;
                       search (n + 1)
                     end
                   else
                     search (n + 1);;
search 1;;



open Printf;;
print_string "nの値 : ";;
let n = read_int();;
let rec pow s = printf "%dの2乗は%d\n" s (s * s);
                if s = n then
                  ()
                else
                  pow (s + 1);;
pow 1;;