my $n = 1, my @prime = (); loop: while($n++) { for (@prime) { next loop if ($n % $_ == 0); } push(@prime, $n); print "$n "; } たった8行と2つの変数で殺人的に素数が生成できるなんて、ステキ。 正規表現を使いこなせば1行でできちゃうみたいだし。 …

油断するとアッサリ日記の更新を忘れる。 土曜は会社の同期とかとガーラ湯沢とかいうところまでスノボに。 あとで考えてみると、女の子とスノボに行ったのなんて生まれて初めてじゃん。 うん、楽しかった。