kirbylife
/
learning_prolog
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add new exercise

main
kirbylife 2023-10-28 00:52:05 -06:00
parent 94bb367486
commit eba10ebdd0
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
simple_exercises/fibonacci.pl 100644
View File

@ -0,0 +1,13 @@
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).