Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Modify other parrot implementation of #1 to parse in old Parrots

  • Loading branch information...
commit 99c84105152e11edfbfabd39bbc19e267433b977 1 parent a4167b2
Jonathan Leto authored
Showing with 3 additions and 4 deletions.
  1. +3 −4 parrot/001/01.pir
View
7 parrot/001/01.pir
@@ -1,9 +1,7 @@
# Euler Problem #1 in PIR
# Jonathan "Duke" Leto <jonathan@leto.net>
-# This appears to be the same speed as the Perl 5 implementation
-# with Parrot 1.4.0
-.sub 'main' :main
+.sub main
.local int sum, max, m, i
i = 1
max = 999
@@ -22,5 +20,6 @@ found:
if i > max goto done
goto loop
done:
- say sum
+ print sum
+ print "\n"
.end
Please sign in to comment.
Something went wrong with that request. Please try again.