fork download
copy 
  1. fib(0, 0) :- !.
  2. fib(1, 1) :- !.
  3. fib(N, R) :- 
  4.     N1 is N - 1, N2 is N - 2,
  5.     fib(N1, R1), fib(N2, R2),
  6.     R is R1 + R2.
  7.  
  8. main :- fib(35, R), write(R), nl, halt. % He puesto 35 porque 40 puede tardar minutos en Prolog
  9. :- initialization(main).
  10.  
Success #stdin #stdout 2.78s 5980KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
9227465
https://ideone.com/lkMwFz
language:
Prolog (swi 7.6.4)
created:
1 day 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!