1 \ @(#) bench.fth 97/12/10 1.1
6 \ pForthV9 on Indy, compiled with gcc
7 \ bench1 took 15 seconds
8 \ bench2 took 16 seconds
9 \ bench3 took 17 seconds
10 \ bench4 took 17 seconds
11 \ bench5 took 19 seconds
12 \ sieve took 4 seconds
14 \ Darren Gibbs reports that on an SGI Octane loaded with multiple users:
22 \ HForth on Mac Quadra 800, 68040
23 \ bench1 took 1.73 seconds
24 \ bench2 took 6.48 seconds
25 \ bench3 took 2.65 seconds
26 \ bench4 took 2.50 seconds
27 \ bench5 took 1.91 seconds
28 \ sieve took 0.45 seconds
30 \ pForthV9 on Mac Quadra 800
31 \ bench1 took 40 seconds
32 \ bench2 took 43 seconds
33 \ bench3 took 43 seconds
34 \ bench4 took 44 seconds
35 \ bench5 took 42 seconds
36 \ sieve took 20 seconds
38 \ pForthV9 on PB5300, 100 MHz PPC 603 based Mac Powerbook
39 \ bench1 took 8.6 seconds
40 \ bench2 took 9.0 seconds
41 \ bench3 took 9.7 seconds
42 \ bench4 took 8.8 seconds
43 \ bench5 took 10.3 seconds
44 \ sieve took 2.3 seconds
47 \ bench1 took 1.1 seconds
48 \ bench2 took 3.6 seconds
49 \ bench3 took 1.7 seconds
50 \ bench4 took 1.2 seconds
51 \ bench5 took 1.3 seconds
52 \ sieve took 0.2 seconds
58 \ benchmark primitives
61 : t1 #do @ 0 do loop ;
62 : t2 23 45 #do @ 0 do swap loop 2drop ;
63 : t3 23 #do @ 0 do dup drop loop drop ;
64 : t4 23 45 #do @ 0 do over drop loop 2drop ;
65 : t5 #do @ 0 do 23 45 + drop loop ;
66 : t6 23 #do @ 0 do >r r> loop drop ;
67 : t7 23 45 67 #do @ 0 do rot loop 2drop drop ;
68 : t8 #do @ 0 do 23 2* drop loop ;
69 : t9 #do @ 10 / 0 do 23 5 /mod 2drop loop ;
70 : t10 #do #do @ 0 do dup @ drop loop drop ;
73 : t11 #do @ 0 do foo loop ;
75 \ more complex benchmarks -----------------------
77 \ BENCH1 - sum data ---------------------------------------
78 create data1 23 , 45 , 67 , 89 , 111 , 222 , 333 , 444 ,
79 : sum.cells ( addr num -- sum )
91 data1 8 sum.cells drop
95 \ BENCH2 - recursive factorial --------------------------
96 : factorial ( n -- n! )
112 \ BENCH3 - DEFER ----------------------------------
119 ' answer is calc.answer
127 \ BENCH4 - locals ---------------------------------
128 : use.locals { x1 x2 | aa bb -- result }
138 234 567 use.locals drop
142 \ BENCH5 - string compare -------------------------------
143 : match.strings { $s1 $s2 | adr1 len1 adr2 len2 -- flag }
144 $s1 count -> len1 -> adr1
145 $s2 count -> len2 -> adr2
166 " This is a string. X foo"
167 " This is a string. Y foo" match.strings drop
171 \ SIEVE OF ERATOSTHENES from BYTE magazine -----------------------
173 DECIMAL 8190 CONSTANT TSIZE
175 VARIABLE FLAGS TSIZE ALLOT
177 : <SIEVE> ( --- #primes ) FLAGS TSIZE 1 FILL
179 DO ( n ) I FLAGS + C@
180 IF I DUP + 3 + DUP I + ( I2*+3 I3*+3 )
181 BEGIN DUP TSIZE < ( same flag )
182 WHILE 0 OVER FLAGS + C! ( i' i'' ) OVER +
187 : SIEVE ." 10 iterations " CR 0 10 0
189 LOOP . ." primes " CR ;
191 : SIEVE50 ." 50 iterations " CR 0 50 0
193 LOOP . ." primes " CR ;
196 \ 21.5 sec Amiga Multi-Forth Indirect Threaded
197 \ 8.82 sec Amiga 1000 running JForth
198 \ ~5 sec SGI Indy running pForthV9