Вычислить N! - Prolog

Формулировка задачи:

Вычислить N!.

Решение задачи: «Вычислить N!»

Листинг программы

Function Fact_(n as long, Optional p as long=1) as long
  if (n==0) 
    Fact_=p
  else
    Fact_=Fcat_(n-1,p*n)
  end if
End Function
 
Function Fact(n as long) as long
   Fact=Fact_(n)
End Function

Объяснение кода листинга программы

В этом коде реализована функция вычисления факториала числа N. Список действий:

Задаётся число N и инициализируется переменная Fact_ со значением 1.
Проверяется базовый случай: если N равно 0, то Fact_ присваивается значение 1.
В противном случае вызывается рекурсивная функция Fcat с аргументами (n-1) и (p*n), где p — это значение Fact на предыдущем шаге рекурсии. При этом, значение Fact_ на текущем шаге равно произведению p на (n-1).
Значение Fact_ присваивается переменной Fact.
Возвращается значение Fact.