http://ll.jus.or.jp/2006/blog/doukaku1遅ればせながら参戦 for my $i (2..100) { my $n = join ",",map{$i%$_} 2..$i-1; if($n !~ /^0\,/ && $n !~ /\,0/){ print "$i \n"; } } mapと正規表現で作ってみました。 普通ですかね．．． [追記] 何も考えずに作…