a247b1b8ec
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1958 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
26 lines
375 B
Prolog
26 lines
375 B
Prolog
benches :-
|
|
bench(B),
|
|
atom_concat(B, '.chr', File),
|
|
style_check(-singleton),
|
|
abolish(main,0),
|
|
abolish(main,1),
|
|
load_files(File,[silent(true)]),
|
|
% (main;main;main;main),
|
|
main,
|
|
fail.
|
|
benches.
|
|
|
|
bench(bool).
|
|
bench(fib).
|
|
bench(fibonacci).
|
|
bench(leq).
|
|
bench(primes).
|
|
bench(ta).
|
|
bench(wfs).
|
|
bench(zebra).
|
|
|
|
prolog:cputime(Time) :-
|
|
statistics(runtime, [_,Time]).
|
|
|
|
:- benches.
|