Logtalk 2.30.7 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1973 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2007-11-06 01:50:09 +00:00
parent 6c3aee8c63
commit 42aabce1bb
320 changed files with 2252 additions and 1289 deletions
--- a/Logtalk/examples/benchmarks/category.lgt
+++ b/Logtalk/examples/benchmarks/category.lgt
@@ -9,6 +9,16 @@

 	:- public(ctg_pred/0).

-	ctg_pred.
+	ctg_pred :-
+		{generate_list(20, List)},
+		length(List, _).
+
+	length(List, Length) :-
+		length(List, 0, Length).
+
+	length([], Length, Length).
+	length([_| Tail], Acc, Length) :-
+		Acc2 is Acc + 1,
+		length(Tail, Acc2, Length).

 :- end_category.