362 B
362 B
Вычисление факториала хвостовой рекурсией
Cсылка на видеоразбор
Код из книги
#let rec tfact x n =
if n = 0 then x
else tfact (x * n) (n - 1);
tfact : int -> int -> int = <fun>
#let fact n = tfact 1 n;;
fact : int -> int = <fun>