WIP

trealla-prolog · Mar 11, 2024 · a7c0949 · a7c0949
1 parent aac4707
commit a7c0949
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/samples/fib.pl b/samples/fib.pl
@@ -8,6 +8,11 @@
     R is R1 + R2.
 
 test :-
+    fib(10,F),
+    F =:= 89,
+    write('fib(30)='), write(F), write(' PASSED'), nl.
+
+test0 :-
     fib(30,F),
     F =:= 1346269,
     write('fib(30)='), write(F), write(' PASSED'), nl.

diff --git a/samples/fib_fast.pl b/samples/fib_fast.pl
@@ -10,6 +10,11 @@
     fib(E,C,F,D).
 
 test :-
+    fib(10,F),
+    F =:= 89,
+    write('fib(30)='), write(F), write(' PASSED'), nl.
+
+test0 :-
     fib(30,F),
     F =:= 1346269,
     write('fib(30)='), write(F), write(' PASSED'), nl.

diff --git a/samples/fib_tabled.pl b/samples/fib_tabled.pl
@@ -14,7 +14,7 @@
 test :-
     fib(10,F),
     F =:= 89,
-    write('fib(30)='), write(F), write(' PASSED'), nl.
+    write('fib(10)='), write(F), write(' PASSED'), nl.
 
 test0 :-
     fib(30,F),