Kernel/lib/lips.pl

26 % Version:	$Id: lips.pl,v 1.3 2009/07/16 09:11:24 jschimpf Exp $
32 % IDENTIFICATION:	lips.pl
36 % CONTENTS:		lips/0,1,2
41 :- module(lips).
69 :- comment(lips/0, [template:"lips",
72 :- comment(lips/1, [template:"lips(+Count)",
75 :- comment(lips/2, [template:"lips(+Count,+Length)",
79 :- export lips/0, lips/1, lips/2.
84 lips :-
85 	lips(10000, 30).
87 lips(Count) :-
88 	lips(Count, 30).
90 lips(Count, Length) :-
145 :- writeln("Call lips/0 to run the standard naive reverse benchmark.").