Revision: 40745
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at February 7, 2011 03:08 by 13tazer31
Initial Code
fibonacci(_,Current,End,0) :-
Current > End.
fibonacci(Previous, Current, End, Total) :-
divisible(Current, 2),
Next is Current + Previous,
fibonacci(Current, Next, End, Sum),
Total is Sum + Current, !.
fibonacci(Previous, Current, End, Total) :-
Next is Current + Previous,
fibonacci(Current, Next, End, Total).
divisible(Number, 0) :-
write('Error: division by 0').
divisible(Number, Divisor) :-
Number mod Divisor =:= 0.
Initial URL
http://13tazer31.wordpress.com/2011/02/06/project-euler-problem-2/
Initial Description
Initial Title
Project Euler - Problem 2
Initial Tags
math
Initial Language
Prolog