10 lines
212 B
OCaml
10 lines
212 B
OCaml
let digits n =
|
|
let rec digits' n acc =
|
|
if n = 0 then acc
|
|
else digits' (n / 10) (n mod 10 :: acc)
|
|
in
|
|
digits' n [];;
|
|
|
|
let int_of_digits d =
|
|
(List.fold_left (fun x acc -> (x + acc) * 10) 0 d) / 10;;
|