Skip to content

Instantly share code, notes, and snippets.

@FROGGS

FROGGS/infix.pl Secret

Created June 21, 2013 09:52
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 FROGGS/beeb062bfb8c9593d3ff to your computer and use it in GitHub Desktop.
Save FROGGS/beeb062bfb8c9593d3ff to your computer and use it in GitHub Desktop.
Download ZIP
Raw
infix.pl
sub infix:<P5-0> (\a, \b) { a + b }
sub infix:<P5-1> (\a, \b) { a + b }
sub infix:<P5-2> (\a, \b) { a + b }
sub infix:<P5-3> (\a, \b) { a + b }
sub infix:<P5-4> (\a, \b) { a + b }
sub infix:<P5-5> (\a, \b) { a + b }
sub infix:<P5-6> (\a, \b) { a + b }
sub infix:<P5-7> (\a, \b) { a + b }
sub infix:<P5-8> (\a, \b) { a + b }
sub infix:<P5-9> (\a, \b) { a + b }
Raw
timings.md 
$ time perl6 --target=pir --stagestats --output=infix.pir infix.pl 
Stage start      :   0.000
Stage parse      :   2.529
Stage syntaxcheck:   0.000
Stage ast        :   0.000
Stage optimize   :   0.013
Stage post       :   0.383
Stage pir        :   0.131

real	0m3.274s
user	0m2.980s
sys	0m0.232s

$ time parrot -o infix.pbc infix.pir 

real	0m49.607s
user	0m49.360s
sys	0m0.148s
@FROGGS
Copy link
Author

FROGGS commented Jun 21, 2013 

-rw-r--r--  1 froggs froggs 9633280 Jun 21 16:41 infix.pbc
-rw-r--r--  1 froggs froggs 9599289 Jun 21 16:27 infix.pir
-rw-rw-r--  1 froggs froggs     361 Jun 21 11:44 infix.pl

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment