Sync

2013-10-27 22:24:23 +00:00 · 2013-10-27 22:24:23 +00:00 · 776bba907c
commit 776bba907c
parent 6f050a029e
3887 changed files with 59894 additions and 7280 deletions
--- a/Task/Fibonacci-sequence/Prolog/fibonacci-sequence-7.pro
+++ b/Task/Fibonacci-sequence/Prolog/fibonacci-sequence-7.pro
@ -1,8 +1,4 @@
-fib(X) :-
-    X=[0,1|Z],
-    ffib(Z,X).
-ffib(Z,X) :-
-    X=[A|Y],
-    Y=[B|_],
-    N is A+B,
-    freeze(Z, (Z=[N|W],ffib(W,Y)) ).
+fib([0,1|X]) :-
+    ffib(0,1,X).
+ffib(A,B,X) :-
+    freeze(X, (C is A+B, X=[C|Y], ffib(B,C,Y)) ).