http://qs1969.pair.com?node_id=417285


in reply to Re^6: Modulus zero error
in thread Modulus zero error

ok.. it would help to know what was in $p and what you were trying to do. for(;;) loops aren't as commonly used in Perl as they are in C as there are often more convenient idioms.

#Assume @p is a list of numbers? my @p=(0..10); for($x = $prevmax;$x<=$max;$x++){ $n = sqrt($x); $i = 0; #Dividing by 0 is always an error... make sure $p[$i] is true while ( ($p[$i]) && ($x%$p[$i] !=0) ) { $i++; if (($n < $p[$i]) && ($x > $p[-1])) { print (1 & ($x > $p[-1])); # <--what are you expecting her +e push(@p,$x."\n"); last; } } }