■入力数以下の素数の個数か…

perl -e "$m=shift;for$n(2..$m){for(2..$n-1){if(!($n%$_)){$m--;last}}}print$m-1" 20

もちろんというか効率も行儀も悪い

Permalink | 記事への反応(0) | 08:58

ツイートシェア