Skip to content
This repository has been archived by the owner on Oct 25, 2019. It is now read-only.

Commit

Permalink
Modify other parrot implementation of #1 to parse in old Parrots
Browse files Browse the repository at this point in the history
  • Loading branch information
Jonathan Leto committed Dec 6, 2009
1 parent a4167b2 commit 99c8410
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions parrot/001/01.pir
View file
Original file line number Original file line Diff line number Diff line change
@@ -1,9 +1,7 @@
# Euler Problem #1 in PIR # Euler Problem #1 in PIR
# Jonathan "Duke" Leto <jonathan@leto.net> # 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 .local int sum, max, m, i
i = 1 i = 1
max = 999 max = 999
Expand All @@ -22,5 +20,6 @@ found:
if i > max goto done if i > max goto done
goto loop goto loop
done: done:
say sum print sum
print "\n"
.end .end

0 comments on commit 99c8410

Please sign in to comment.