RosettaCodeData/Task/Fibonacci-sequence/Prolog/fibonacci-sequence-8.pro
Ingy döt Net 6f050a029e update
2013-06-05 21:47:54 +00: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]