Hello
When running this I would expect the 2 files to
look the same, but they don't.
<CODE>
new P0, .PerlArray # PMC creation
set I10, 10000 # wanted numbers. this fails, 1000 works
set P0, I10 # set array size
set P0[0], 2 # set array position 1
set P0[1], 3 # set array position 2
time I3
dec I10
set I0, 3 # i
set I2, 1 # found numbers
NUMBER:
ge I2, I10, DONE
add I0, I0, 2
set I1, 0 # j
pow N0, I0, 0.5
set I4, N0 # sqrt
dec I4
UNTIL:
set I6, P0[I1]
gt I6, I4, PRIME
inc I1
set I6, P0[I1]
mod I5, I0, I6
unless I5, NUMBER
branch UNTIL
PRIME:
inc I2
set P0[I2], I0
branch NUMBER
DONE:
set S0, "a_file"
open P1, S0
set I0, 0
LOOP:
gt I0, I10, EXIT
set I2, P0[I0]
set S1, I2
concat S1, S1, " "
print P1, S1
print S1
inc I0
mod I6, I0, 19
unless I6, NEW_L
branch LOOP
NEW_L:
print P1, "\n"
print "\n"
branch LOOP
EXIT:
print P1, "\n"
print "\n"
close P1
time I4
sub I0, I4, I3
#print I0
#print "\n"
end
</CODE>
[stefan Thu 7:17:58 1 my_parrot]$ parrot primes.pasm > b_file
[stefan Thu 7:18:12 1 my_parrot]$ wc a_file b_file
527 9999 59489 a_file
527 10000 59509 b_file
1054 19999 118998 total
[stefan Thu 7:18:58 1 my_parrot]$ grep \\b13417\\b a_file b_file # ||
a_file:13291 13297 13309 13313 13327 13331 13337 13339 13367 13381 13397 13399
13417 13421 13441 13451 13457 13463
b_file:13291 13297 13309 13313 13327 13331 13337 13339 13367 13381 13397 13399
13411 13417 13421 13441 13451 13457 13463
[stefan Thu 7:19:05 1 my_parrot]$
/Stefan
