mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Fibonacci-sequence/Prolog/fibonacci-sequence-1.pro

4 lines
99 B
Prolog
Raw Blame History

fib(0, 0):-!.
fib(1, 1):-!.
fib(N, X):-N1 is N-1, N2 is N-2, fib(N1, X1), fib(N2, X2), X is X1+X2.
Reference in New Issue View Git Blame Copy Permalink