Skip to content
Newer
Older
100644 20 lines (17 sloc) 281 Bytes
eb2e899 @sorear Add Perl 5 and PIR versions of itmark
authored Oct 29, 2010
1 .sub 'main' :main
2 $P0 = new 'ResizablePMCArray'
3 $I0 = 0
4 l1:
5 push $P0, $I0
6 inc $I0
7 unless $I0 == 10000 goto l1
8
9 $P1 = iter $P0
10 l2:
11 $P2 = shift $P1
12 $P3 = iter $P0
13 l3:
14 $P4 = shift $P3
15 if $P3 goto l3
16 if $P1 goto l2
17
18 .return()
19 .end
Something went wrong with that request. Please try again.