#!/usr/bin/env python
# encoding=utf-8 (pep 0263)
fib_mem = dict()
def fib(x):
if x == 0:
return 0
if x == 1:
return 1
if not x in fib_mem:
fib_mem[x] = fib(x-1) + fib(x-2)
return fib_mem[x]
# demonstracni vypis
if __name__ == "__main__":
print("Program pro vypocet clenu fibonacciho posloupnosti, " + \
"efektivnejsi varianta.")
print('Vysledek volani fib(36) je %d.' % fib(36))
Program pro vypocet clenu fibonacciho posloupnosti, efektivnejsi varianta.
Vysledek volani fib(36) je 14930352.
| % nacteni:
/* ['1.3.2_19.pl']. */
% predikat fib musi byt dynamicky (kvuli asserta)
:- dynamic fib/2.
fib(0,0).
fib(1,1).
fib(X,Y) :- X1 is X-1, X2 is X-2, fib(X1,Y1), fib(X2,Y2), Y is Y1+Y2, asserta(fib(X,Y)).
% demonstracni vypis
% abychom se vyhli varovanim "Redefined static procedure ..."
:- dynamic
start/0.
start:-
write('Program pro vypocet clenu fibonaciho posloupnosti, '),nl,
write('efektivnejsi varianta'),nl,
write('Napr.:'),nl,
write('Vysledek volani "fib(27, Vysledek)." je:'),nl,
fib(27, Vysledek), write(' Vysledek = '), write(Vysledek),nl,
write('Pomoci volani "listing." se mj. muzete podivat na fakty '),nl,
write('ulozene do databaze pomoci asserta.'),nl.
?-start.
:- retractall(start/0).
Program pro vypocet clenu fibonaciho posloupnosti,
efektivnejsi varianta
Napr.:
Vysledek volani "fib(27, Vysledek)." je:
Vysledek = 196418
Pomoci volani "listing." se mj. muzete podivat na fakty
ulozene do databaze pomoci asserta.
|