Skip to content

Instantly share code, notes, and snippets.

@leto

leto/Euler Project Problem #2 in Parrot

Created December 6, 2009 08:15
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/250129 to your computer and use it in GitHub Desktop.
Save leto/250129 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Euler Project Problem #2 in Parrot
$ BENCH_CONFIG=bench.yaml ~/git/euler_bench/bin/bench ~/git/euler_bench/parrot/001/02.pir parrot --count=100 --order=total
min max avg total
parrot /home/leto/svn/parrot-trunk/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0071 0.0077 0.0076 0.7600
parrot /home/leto/src/parrot/parrot-1.8.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0072 0.0078 0.0076 0.7626
parrot /home/leto/src/parrot/parrot-1.7.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0072 0.0078 0.0077 0.7709
parrot /home/leto/src/parrot/parrot-1.6.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0073 0.0079 0.0078 0.7837
parrot /home/leto/src/parrot/parrot-1.3.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0075 0.0081 0.0080 0.7980
parrot /home/leto/src/parrot/parrot-1.5.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0076 0.0081 0.0080 0.8019
parrot /home/leto/src/parrot/parrot-1.4.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0075 0.0142 0.0081 0.8074
parrot /home/leto/src/parrot/parrot-0.4.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0098 0.0105 0.0100 1.0012
parrot /home/leto/src/parrot/parrot-0.3.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0106 0.0114 0.0109 1.0917
parrot /home/leto/src/parrot/parrot-0.7.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0117 0.0125 0.0122 1.2180
parrot /home/leto/src/parrot/parrot-0.5.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0124 0.0130 0.0126 1.2571
parrot /home/leto/src/parrot/parrot-1.2.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0138 0.0144 0.0143 1.4269
parrot /home/leto/src/parrot/parrot-0.6.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0147 0.0156 0.0151 1.5146
parrot /home/leto/src/parrot/parrot-0.2.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0167 0.0176 0.0169 1.6940
parrot /home/leto/src/parrot/parrot-1.1.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0189 0.0201 0.0195 1.9476
parrot /home/leto/src/parrot/parrot-0.9.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0236 0.0249 0.0241 2.4057
parrot /home/leto/src/parrot/parrot-0.8.2/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0244 0.0251 0.0248 2.4836
parrot /home/leto/src/parrot/parrot-1.0.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0249 0.0262 0.0255 2.5473
parrot /home/leto/src/parrot/parrot-0.8.0/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0271 0.0282 0.0276 2.7631
parrot /home/leto/src/parrot/parrot-0.8.1/parrot /home/leto/git/euler_bench/parrot/001/02.pir 0.0368 0.0375 0.0372 3.7239
(ds80-237-201-115)(~)$ cat ~/git/euler_bench/parrot/001/02.pir
# Euler Problem #1 in PIR
# Jonathan "Duke" Leto <jonathan@leto.net>
.sub main
.local pmc sum, max, m, i
i = new 'Integer'
sum = new 'Integer'
max = new 'Integer'
m = new 'Integer'
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