1999-02-12から1日間の記事一覧

素数を求める (ver.5)

明解C言語 入門編 > 5. 配列 > 素数を求める (ver.5) Perl @prime = (); $ptr = 0; $counter = 0; $prime[$ptr++] = 2; $prime[$ptr++] = 3; $no = 5; while ($no <= 30) { $j = 0; for ($i = 1; $counter++, $prime[$i] * $prime[$i] <= $no; $i++) { $cou…