鐃緒申鐃殉わ申鐃順う鐃緒申

鐃緒申鐃緒申表鐃緒申鐃緒申鐃叔随申判鐃緒申 - NO!鐃夙醐申鐃緒申鐃緒申茲�鐃祝なりた鐃緒申
鐃緒申鐃緒申表鐃緒申鐃叔ワ申鐃緒申肇鐃緒申謄優鐃緒申里佞襪わ申呂鐃緒申鐃緒申鐃緒申鐃縮居申鐃緒申鐃緒申鐃�

鐃叔わ申鐃殉わ申鐃緒申鐃緒申

#!/usr/bin/perl
use strict;
use warnings;
my $max = shift || 100;
my @primes;

sieve:
for my $ns ( map { 1 x $_ } ( 2 .. $max ) ) {
    for my $ds (@primes) {
        last if $ds x length($ds) gt $ns;
        next sieve if $ns =~ /^(?:$ds)+$/;
    }
    push @primes, $ns;
    printf "%3d:%s\n", length $ns, $ns;
}

鐃緒申鐃銃わ申鐃縮り、鐃緒申鐃緒申鐃緒申1..鐃緒申佞襪わ申砲鐃緒申鐃緒申討泙鐃緒申鐃緒申鐃緒申藥誌申鐃緒申鐃緒申鐃淑醐申鐃緒申鐃叔わ申辰討泙鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃暑ゴ鐃所ズ鐃緒申的鐃祝わ申

鐃塾「わ申鐃緒申鐃淳のなわ申鐃緒申鐃緒申鐃竣わ申鐃緒申鐃緒申同鐃緒申鐃叔わ申鐃緒申

鐃準し鐃緒申

perl -le '$,=" "; print grep { (1 x $_) !~ /^(11+)\1+$/ } (2..100)'

鐃緒申鐃緒申鐃緒申鐃緒申表鐃緒申鐃熟わ申鐃獣わ申鐃緒申直鐃祝わ申鐃緒申覆辰討鐃緒申泙鐃緒申鐃�

鐃緒申鐃緒申表鐃緒申鐃夙は醐申鐃緒申鐃緒申鐃舜の鰹申念鐃緒申鐃緒申鐃緒申鐃獣て￥申鐃緒申鐃舜わ申鐃緒申鐃緒申鐃薯くのにわ申辰討鐃緒申鐃緒申任鐃緒申鐃�!

Dan the Regular Expressionist