今日もPerlの勉強するぉ
100までの素数を計算してみた

for ($i=3 ; $i<100 ; $i++)
{
    if (&isSosu($i))
    {
        print $i."\n";
    }
}

sub isSosu
{
    for ($j=3 ; $j<$i ; $j++)
    {
        if ( $i % $j == 0 )
        {
            return 0;
        }
    }
    return 1;
}