Проблема такая, начал недавно изучать язык Perl. И сталкнулся с проблемой. Есть код (был в мануале
)) Вот, а мне надо его модифицировать, что бы он был правильным. И я никак не могу с этим справиться, вот решил обратиться за помощью к вам. Т.к. буду еще не раз писать, то создаю тему.Заранее очень благодарин. Ниже код.
#!/usr/bin/perl -w
$maxprimes=20;
$value=1;
$count=0;
while ($count<$maxprimes) {
$value++;
$compasite=0;
OUTER: for ($i=1;$i<$value ;$i++) {
for ($j=1;$j<$value ;$j++) {
if (($i*$j)==$value) {
$compasite=1;
last OUTER;
}
}
}
if (1==$compasite) {
$count++;
print "$value ";
}
}
P.S. Я думаю не то что я не могу найти вызод из ситуаци потому что у меня не хватает мозгов, я думаю потому что я еще токо знаю азы интерпретатора Perl. (Но это сугубо мое мнение
))