Logtalk 2.30.1 files.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1903 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

Logtalk/examples/benchmarks/plain.lgt

@@ -1,36 +1,42 @@
 
 my_length(List, Length) :-
-	integer(Length) ->
-		Length >= 0,
-		my_make_list(Length, List)
-		;
-		my_length(List, 0, Length).
-
-
-my_make_list(0, []):-
-	!.
-
-my_make_list(N, [_| Tail]):-
-	M is N-1,
-	my_make_list(M, Tail).
-
+	my_length(List, 0, Length).
 
 my_length([], Length, Length).
-
 my_length([_| Tail], Acc, Length) :-
 	Acc2 is Acc + 1,
 	my_length(Tail, Acc2, Length).
 
 
-:- dynamic(pred_plain/0).
+:- dynamic(pred_plain/1).
 
-db_test_plain :-
-	repeat(100),
-		assertz(pred_plain),
-	fail.
+plain_dyndb(N) :-
+	assertz(pred_plain(N)),
+	retract(pred_plain(N)).
 
-db_test_plain :-
-	retract(pred_plain),
-	fail.
 
-db_test_plain.
+my_between(Lower, _, Lower).
+my_between(Lower, Upper, Integer) :-
+	Lower < Upper,
+	Next is Lower + 1,
+	my_between(Next, Upper, Integer).
+
+
+my_repeat(_).
+my_repeat(N) :-
+	N > 1,
+	N2 is N - 1,
+	my_repeat(N2).
+
+
+% generate a list containing the first N non-negative integers
+
+generate_list(N, List) :-
+	generate_list(0, N, List).
+
+generate_list(N, N, []) :-
+	!.
+generate_list(M, N, [M| Ms]) :-
+	M < N,
+	M2 is M + 1,
+	generate_list(M2, N, Ms).