Logtalk 2.21.3 files.

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

Logtalk/examples/benchmarks/object.lgt

@@ -0,0 +1,24 @@
+
+:- object(object).
+
+	:- public(length/2).
+
+	length(List, Length) :-
+		integer(Length) ->
+			Length >= 0,
+			make_list(Length, List)
+			;
+			length(List, 0, Length).
+
+	make_list(0, []):-
+		!.
+	make_list(N, [_| Tail]):-
+		M is N-1,
+		make_list(M, Tail).
+
+	length([], Length, Length).
+	length([_| Tail], Acc, Length) :-
+		Acc2 is Acc + 1,
+		length(Tail, Acc2, Length).
+
+:- end_object.