Holding steady. As a lark, I wrote the functionality of test.pasm (the time test) in Perl, and ran it under 5.6.1. (Keep it mind, you've got variables that you're fetching and storing to.)
Parrot Assembler (with the time_n patch, since the elapsed time is so small. The comma delimeters are mine): Iterations: 100,000,000 Start time: 1002342433.400218 End time: 1002342442.858994 Count: 100,000,000 Elapsed time:9.458776 Estimated ops:300,000,000 Ops/sec:31,716,577.291820 9.370u 0.010s 0:09.46 99.1% 0+0k 0+0io 173pf+0w Perl 5.6.1 Perl: Iterations: 100,000,000 Start time: 1002342340 End time: 1002342416 Count: 100,000,000 Elapsed time: 76 Estimated ops:300,000,000 Ops/sec: 3,947,368.42105263158 75.890u 0.020s 1:15.94 99.9% 0+0k 0+0io 324pf+0w Now, if we actually count how many ops it really is: (-MO=Terse and test_prog -t) Parrot: 300,000,009 ops = 31,712,475 ops/sec Perl 5.6.1: 1,400,000,026 ops = 18,435,607 ops/sec You may draw your own conclusions. Mine is... we're not fast enough. -- Bryan C. Warnock [EMAIL PROTECTED]
