10 lines
362 B
Markdown
10 lines
362 B
Markdown
# Вычисление факториала хвостовой рекурсией
|
||
## Cсылка на видеоразбор
|
||
https://youtu.be/d7vrUHXSpFo
|
||
## Код из книги
|
||
#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> |