Fibonacci en Prolog
% Author:Daniel Doctor % Date: 05/03/2006 fibonacci(0,1). fibonacci(1,1). fibonacci(N,F) :- N > 1, N1 is N-1, N2 is N-2, fibonacci(N1,F1), fibonacci(N2,F2), F is F1+F2. % Imprime el resultado y sale del programa. imprimir(N) :-write('El numero '),write(N), write(' de la serie de Fibonacci es: '), fibonacci(N,X), write(X), nl, fail.
