RosettaCodeData/Task/Fibonacci-sequence/Prolog/fibonacci-sequence-8.pro
2023-07-01 13:44:08 -04:00

2 lines
109 B
Prolog

?- fib(X), length(A,15), append(A,_,X), writeln(A).
[0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, 377]