Добавил:
Tushkan
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Задания по FPTL / Examples / Fibonacci
.txt Scheme Fibonacci
{
Fib = ([1] * 0).equal -> 1,
([1] * 1).equal -> 1,
((([1] * 2).sub.Fib * ([1] * 1).sub.Fib).add);
@ = Fib.print;
}
Application
% Fibonacci(37)
{
Fib = ([1] * 0).equal -> 1,
([1] * 1).equal -> 1,
((([1] * 2).sub.Fib * ([1] * 1).sub.Fib).add);
@ = Fib.print;
}
Application
% Fibonacci(37)