Skip to content

Instantly share code, notes, and snippets.

@pmichaud
Created May 20, 2009 23:06
Show Gist options
  • Save pmichaud/115147 to your computer and use it in GitHub Desktop.
Save pmichaud/115147 to your computer and use it in GitHub Desktop.
$ cat z1
Q:PIR {
$I0 = 1
loop:
unless $I0 <= 5000 goto done
$P0 = root_new ['parrot';'Integer']
$P1 = root_new ['parrot';'Integer']
$P2 = root_new ['parrot';'Integer']
$P3 = root_new ['parrot';'Integer']
inc $I0
goto loop
done:
};
$ time ./perl6 z1
real 0m1.455s
user 0m1.320s
sys 0m0.100s
$ cat z2
Q:PIR {
$I0 = 1
loop:
unless $I0 <= 5000 goto done
$P0 = new ['Integer']
$P1 = new ['Integer']
$P2 = new ['Integer']
$P3 = new ['Integer']
inc $I0
goto loop
done:
};
$ time ./perl6 z2
real 0m2.242s
user 0m2.096s
sys 0m0.120s
$
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment