素数の和を求める準備。
10000までの素数の和を出来るだけ速く求める為にどうするか。
まず、素数を全部引っこ抜かないといけないよねって事で。
となると正規表現だなっ。
「教えてgoogle先生!」ってやったら出てきました。
んで、ごにょごにょしたら
1 use strict;
2 use warnings;
3 use utf8;
4
5 my @primes;
6 for my $num(2..10000){
7 push @primes,$num if(1 x $num)!~/^(11+)\1+$/;
8 }
9 print q{},@primes;
こんな風になって、でもこれって自分の力じゃなくね?って感じになったわけです。
そもそも理解出来てないので素数を正規表現で求めてるあたりを次回ゆっくり読み解こう。
これだと「和」じゃなくて羅列しただけだし。