fork download
copy 
  1. :- dynamic fibo/2.
  2. :- retractall(fibo(_, _)).
  3.  
  4. fibo(1, X) :-
  5.   X is 1.
  6.  
  7. fibo(2, X) :-
  8.   X is 1.
  9.  
  10. fibo(N, X) :-
  11.   N1 is N - 1, fibo(N1, A),
  12.   N2 is N - 2, fibo(N2, B),
  13.   X is A + B,
  14.   asserta((fibo(N, X) :- !)).
Success #stdin #stdout #stderr 0.01s 7796KB
comments (?)
stdin
copy 
fibo(10, X).
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/VyCb1Y
language:
Prolog (swi 7.6.4)
created:
8 years ago
visibility:
secret

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!