% nacteni:
/* ['1.3.1_18.pl']. */

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.

% demonstracni vypis

  % abychom se vyhli varovanim "Redefined static procedure ..."
:- dynamic
       write_all_X/3,
       start/0.
       
write_all_X(Goal,X,Name):-
            call(Goal),write('  '),write(Name),write(' = '),write(X),nl,fail.
write_all_X(_,_,_).

start:- 
    write('Program pro vypocet clenu fibonaciho posloupnosti, '),nl,
    write('mene efektivni varianta'),nl,
    write('Napr.:'),nl,
    write('Vypocet potrva nekolik vterin, '), 
    write('Vysledek volani "fib(27, Vysledek)." je:'),nl,
    fib(27, Vysledek), write('  Vysledek = '), write(Vysledek),nl.   
?-start.

:- retractall(write_all_X/3).
:- retractall(start/0).

Program pro vypocet clenu fibonaciho posloupnosti, 
mene efektivni varianta
Napr.:
Vypocet potrva nekolik vterin, Vysledek volani "fib(27, Vysledek)." je:
  Vysledek = 196418

#!/usr/bin/env python
# encoding=utf-8 (pep 0263)

def fib(x):
    if x == 0:
        return 0
    if x == 1:
        return 1
    return fib(x-1) + fib(x-2)

# demonstracni vypis
if __name__ == "__main__":
    print("Program pro vypocet clenu fibonacciho posloupnosti, " + \
       "mene efektivni varianta (vypocet potrva nekolik vterin).")
    print('Vysledek volani fib(36) je %d.' % fib(36))

Program pro vypocet clenu fibonacciho posloupnosti, mene efektivni varianta (vypocet potrva nekolik vterin).
Vysledek volani fib(36) je 14930352.