14 lines
278 B
Perl
14 lines
278 B
Perl
|
fib(N) :-
|
||
|
write(1),
|
||
|
write(", "),
|
||
|
CounterMinusOne is N - 1,
|
||
|
fib(0, 1, CounterMinusOne).
|
||
|
|
||
|
fib(N1, N2, Counter) :-
|
||
|
Counter > 0,
|
||
|
Result is N1 + N2,
|
||
|
write(Result),
|
||
|
write(", "),
|
||
|
CounterMinusOne is Counter - 1,
|
||
|
fib(N2, Result, CounterMinusOne).
|