Числа Фибоначчи в BCPL

Пример для версий 64-bit BCPL Cintcode System (1 Nov 2006)

Используется рекурсивный метод вычисления чисел Фибоначчи.

GET "libhdr"

LET start() = VALOF
{ FOR i = 0 TO 15 DO writef("%n, ", fibonacci(i))
  writef("...*n")
  RESULTIS 0
}

AND fibonacci(n) = n<2 -> 1, fibonacci(n-1)+fibonacci(n-2)

Числа Фибоначчи в BCPL

Комментарии