Факториал в BCPL

Пример для версий bcplkit UNIX v7

Используется рекурсивное вычисление факториала. Числа больше 13! вызывают переполнение.

Вывод:

0! = 1
1! = 1
2! = 2
3! = 6
4! = 24
5! = 120
6! = 720
7! = 5040
8! = 40320
9! = 362880
10! = 3628800
11! = 39916800
12! = 479001600
13! = 1932053504
14! = 1278945280
15! = 2004310016
16! = 2004189184

GET "LIBHDR"

LET START() = VALOF 
$(1
	FOR I = 1 TO 16 DO
    	WRITEF("%N! = %I4*N", I, FACT(I))
    RESULTIS 0
$)1

AND FACT(N) = N = 0 -> 1, N * FACT(N - 1)

Факториал в BCPL

Комментарии