diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Logtalk 2.21.4 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1166 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-10-26 20:59:29 +00:00
parent 3de4d0c6a5
commit bc194d7fcc
148 changed files with 211 additions and 205 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Logtalk/examples/benchmarks/NOTES
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.21.3
Release 2.21.4
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

22
Logtalk/examples/benchmarks/SCRIPT
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.21.3
Release 2.21.4
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================
@@ -18,8 +18,8 @@ Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
| ?- benchmark(true).
Number of repetitions: 1000000
Average time per call: 1.3e-07 seconds
Number of calls per second: 7692307.6923077
Average time per call: 5.1e-07 seconds
Number of calls per second: 1960784.31372549
yes
@@ -28,8 +28,8 @@ yes
| ?- benchmark(my_length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 1.4e-07 seconds
Number of calls per second: 7142857.14285716
Average time per call: 3.07e-06 seconds
Number of calls per second: 325732.899022801
yes
@@ -38,8 +38,8 @@ yes
| ?- benchmark(module:mod_length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 1.4e-07 seconds
Number of calls per second: 7142857.14285716
Average time per call: 3.17e-06 seconds
Number of calls per second: 315457.413249211
yes
@@ -48,8 +48,8 @@ yes
| ?- benchmark(object::length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 1.4e-07 seconds
Number of calls per second: 7142857.14285716
Average time per call: 9.14e-06 seconds
Number of calls per second: 109409.190371991
yes
@@ -59,6 +59,6 @@ yes
| ?- benchmark('$lgt_send_to_object_nv'(object, length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _), user)).
Number of repetitions: 1000000
Average time per call: 1.4e-07 seconds
Number of calls per second: 7142857.14285716
Average time per call: 5.1e-06 seconds
Number of calls per second: 196078.431372549
yes

6
Logtalk/examples/benchmarks/benchmark.pl
View File

@@ -3,7 +3,7 @@
% useful statistics
benchmark(Goal) :-
N = 10000000,
N = 1000000,
write('Number of repetitions: '), write(N), nl,
'$lgt_cpu_time'(Seconds1), % defined in the config files
benchmark(N, Goal),
@@ -30,9 +30,9 @@ benchmark(_, _).
% if that's the case of the Prolog compiler you are using, then comment out
% the definition that follows
repeat(0) :-
!.
repeat(_).
repeat(N) :-
N > 1,
N2 is N - 1,
repeat(N2).