fork(1) download
copy 
  1. fib(0, 0).
  2. fib(1, 1).
  3. fib(N, F) :- X is N - 1, Y is N - 2, fib(X, A), fib(Y, B), F is A + B.
  4.  
  5. fib_sequence(A,B,[]) :- A > B.
  6. fib_sequence(A,B,[H|T]) :- A =< B , fib(A, H), AA is A + 1, fib_sequence(AA, B, T).
  7.  
  8. :- fib_sequence(1,5,Output), write(Output).
Success #stdin #stdout #stderr 0.02s 6160KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1, 1, 2, 3, 5]
stderr
copy
https://ideone.com/EFDQG2
language:
Prolog (swi 7.6.4)
created:
12 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!