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

Logtalk 2.21.5 files.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1171 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
pmoura
2004-11-03 00:13:01 +00:00
parent 91d385147e
commit 20dcf89f9a
160 changed files with 388 additions and 266 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.4
Release 2.21.5
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================

71
Logtalk/examples/benchmarks/SCRIPT
View File

@@ -1,6 +1,6 @@
=================================================================
Logtalk - Object oriented extension to Prolog
Release 2.21.4
Release 2.21.5
Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
=================================================================
@@ -12,24 +12,15 @@ Copyright (c) 1998-2004 Paulo Moura. All Rights Reserved.
...
% call the built-in control construct true/0 to measure the overhead of the
% benchmark/1 predicate itself:
| ?- benchmark(true).
Number of repetitions: 1000000
Average time per call: 5.1e-07 seconds
Number of calls per second: 1960784.31372549
yes
% call the predicate my_length/0 defined in the Prolog database:
| ?- benchmark(my_length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 3.07e-06 seconds
Number of calls per second: 325732.899022801
Number of repetitions: 100000
Loop time: 0.04 seconds
Goal time: 0.31 seconds
Average time per call: 2.7e-06 seconds
Number of calls per second: 370370.370370371
yes
@@ -37,9 +28,11 @@ yes
| ?- benchmark(module:mod_length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 3.17e-06 seconds
Number of calls per second: 315457.413249211
Number of repetitions: 100000
Loop time: 0.04 seconds
Goal time: 0.31 seconds
Average time per call: 2.7e-06 seconds
Number of calls per second: 370370.37037037
yes
@@ -47,9 +40,11 @@ yes
| ?- benchmark(object::length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _)).
Number of repetitions: 1000000
Average time per call: 9.14e-06 seconds
Number of calls per second: 109409.190371991
Number of repetitions: 100000
Loop time: 0.0600000000000005 seconds
Goal time: 0.94 seconds
Average time per call: 8.79999999999999e-06 seconds
Number of calls per second: 113636.363636364
yes
@@ -58,7 +53,35 @@ 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: 5.1e-06 seconds
Number of calls per second: 196078.431372549
Number of repetitions: 100000
Loop time: 0.0499999999999972 seconds
Goal time: 0.510000000000002 seconds
Average time per call: 4.60000000000004e-06 seconds
Number of calls per second: 217391.304347824
yes
% compiled call of the predicate list::length/2 (simulates message sending
% from a compiled object to another object with event-driven programming
% support switched off and with no top-level overhead):
| ?- benchmark('$lgt_send_to_object_ne_nv'(object, length([1, 2, 3, 4, 5, 6, 7, 8, 9, 0], _), user)).
Number of repetitions: 100000
Loop time: 0.0500000000000007 seconds
Goal time: 0.43 seconds
Average time per call: 3.79999999999999e-06 seconds
Number of calls per second: 263157.894736843
yes
% create and abolish an elementary dynamic object:
| ?- benchmark((create_object(xpto, [], [], []), abolish_object(xpto))).
Number of repetitions: 100000
Loop time: 0.039999999999992 seconds
Goal time: 102.77 seconds
Average time per call: 0.0010273 seconds
Number of calls per second: 973.425484279178
yes

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

@@ -3,12 +3,19 @@
% useful statistics
benchmark(Goal) :-
N = 1000000,
N = 100000,
write('Number of repetitions: '), write(N), nl,
'$lgt_cpu_time'(Seconds1), % defined in the config files
benchmark(N, Goal),
benchmark(N, true),
'$lgt_cpu_time'(Seconds2),
Average is (Seconds2 - Seconds1)/N,
Looptime is Seconds2 - Seconds1,
write('Loop time: '), write(Looptime), write(' seconds'), nl,
'$lgt_cpu_time'(Seconds3),
benchmark(N, Goal),
'$lgt_cpu_time'(Seconds4),
Goaltime is Seconds4 - Seconds3,
write('Goal time: '), write(Goaltime), write(' seconds'), nl,
Average is (Goaltime - Looptime)/N,
write('Average time per call: '), write(Average), write(' seconds'), nl,
Speed is 1.0/Average,
write('Number of calls per second: '), write(Speed), nl.