Skip to content

Instantly share code, notes, and snippets.

@leto

leto/Another Euler Project #2 Parrot Benchmark

Created December 6, 2009 08:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save leto/250132 to your computer and use it in GitHub Desktop.
Save leto/250132 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Another Euler Project #2 Parrot Benchmark
$ BENCH_CONFIG=bench.yaml ~/git/euler_bench/bin/bench ~/git/euler_bench/parrot/001/01.pir parrot --count=100 --order=total
min max avg total
parrot /home/leto/src/parrot/parrot-1.3.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0062 0.0068 0.0067 0.6727
parrot /home/leto/svn/parrot-trunk/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0062 0.0070 0.0068 0.6763
parrot /home/leto/src/parrot/parrot-1.8.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0064 0.0069 0.0068 0.6815
parrot /home/leto/src/parrot/parrot-1.4.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0064 0.0070 0.0069 0.6877
parrot /home/leto/src/parrot/parrot-1.2.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0064 0.0070 0.0069 0.6878
parrot /home/leto/src/parrot/parrot-1.6.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0065 0.0071 0.0069 0.6911
parrot /home/leto/src/parrot/parrot-1.7.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0064 0.0136 0.0069 0.6916
parrot /home/leto/src/parrot/parrot-1.5.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0064 0.0078 0.0070 0.6974
parrot /home/leto/src/parrot/parrot-0.4.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0094 0.0399 0.0101 1.0077
parrot /home/leto/src/parrot/parrot-0.3.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0104 0.0129 0.0108 1.0805
parrot /home/leto/src/parrot/parrot-0.7.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0113 0.0139 0.0118 1.1819
parrot /home/leto/src/parrot/parrot-0.5.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0116 0.0122 0.0120 1.2001
parrot /home/leto/src/parrot/parrot-1.1.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0116 0.0122 0.0121 1.2105
parrot /home/leto/src/parrot/parrot-0.8.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0116 0.0124 0.0121 1.2140
parrot /home/leto/src/parrot/parrot-1.0.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0117 0.0125 0.0122 1.2249
parrot /home/leto/src/parrot/parrot-0.9.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0119 0.0126 0.0124 1.2398
parrot /home/leto/src/parrot/parrot-0.8.2/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0121 0.0128 0.0127 1.2662
parrot /home/leto/src/parrot/parrot-0.8.1/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0122 0.0129 0.0127 1.2716
parrot /home/leto/src/parrot/parrot-0.6.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0137 0.0144 0.0142 1.4213
parrot /home/leto/src/parrot/parrot-0.2.0/parrot /home/leto/git/euler_bench/parrot/001/01.pir 0.0165 0.0178 0.0167 1.6715
(ds80-237-201-115)(~)$ cat ~/git/euler_bench/parrot/001/01.pir
# Euler Problem #1 in PIR
# Jonathan "Duke" Leto <jonathan@leto.net>
.sub main
.local int sum, max, m, i
i = 1
max = 999
sum = 0
loop:
mod m, i, 3
if m == 0 goto found
mod m, i, 5
if m == 0 goto found
inc i
if i > max goto done
goto loop
found:
sum = sum + i
inc i
if i > max goto done
goto loop
done:
print sum
print "\n"
.end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment