tail_factorial.ml (439B)
1 let factorial x = 2 let rec go acc current = 3 if current = 0 4 then acc 5 else 6 go (acc * current) (current - 1) 7 in go 1 x;; 8 9 10 print_endline (string_of_int(factorial 1));; 11 print_endline (string_of_int(factorial 2));; 12 print_endline (string_of_int(factorial 3));; 13 print_endline (string_of_int(factorial 4));; 14 print_endline (string_of_int(factorial 5));; 15 print_endline (string_of_int(factorial 6));;