52 lines
961 B
Prolog
52 lines
961 B
Prolog
?- listing(fib).
|
|
:- dynamic fib/2.
|
|
|
|
fib(40, 102334155) :- !.
|
|
fib(39, 63245986) :- !.
|
|
fib(38, 39088169) :- !.
|
|
fib(37, 24157817) :- !.
|
|
fib(36, 14930352) :- !.
|
|
fib(35, 9227465) :- !.
|
|
fib(34, 5702887) :- !.
|
|
fib(33, 3524578) :- !.
|
|
fib(32, 2178309) :- !.
|
|
fib(31, 1346269) :- !.
|
|
fib(30, 832040) :- !.
|
|
fib(29, 514229) :- !.
|
|
fib(28, 317811) :- !.
|
|
fib(27, 196418) :- !.
|
|
fib(26, 121393) :- !.
|
|
fib(25, 75025) :- !.
|
|
fib(24, 46368) :- !.
|
|
fib(23, 28657) :- !.
|
|
fib(22, 17711) :- !.
|
|
fib(21, 10946) :- !.
|
|
fib(20, 6765) :- !.
|
|
fib(19, 4181) :- !.
|
|
fib(18, 2584) :- !.
|
|
fib(17, 1597) :- !.
|
|
fib(16, 987) :- !.
|
|
fib(15, 610) :- !.
|
|
fib(14, 377) :- !.
|
|
fib(13, 233) :- !.
|
|
fib(12, 144) :- !.
|
|
fib(11, 89) :- !.
|
|
fib(10, 55) :- !.
|
|
fib(9, 34) :- !.
|
|
fib(8, 21) :- !.
|
|
fib(7, 13) :- !.
|
|
fib(6, 8) :- !.
|
|
fib(5, 5) :- !.
|
|
fib(4, 3) :- !.
|
|
fib(3, 2) :- !.
|
|
fib(2, 1) :- !.
|
|
fib(1, 1) :- !.
|
|
fib(0, 0) :- !.
|
|
fib(A, D) :-
|
|
B is A+ -1,
|
|
fib(B, E),
|
|
C is A+ -2,
|
|
fib(C, F),
|
|
D is E+F,
|
|
asserta((fib(A, D):-!)).
|