鐃緒申鐃巡。鐃緒申逃鐃緒申鐃銃わ申鐃緒申鐃緒申

2009-03-14 - 鐃緒申鐃緒申鐃塾はてわ申鐃緒申鐃緒申
鐃淳種申率3.141592653589793鐃縦わ申鐃緒申如鐃緒申能鐃祝￥申"鐃緒申鐃緒申鐃緒申分鐃緒申"鐃夙醐申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃竣わ申鐃出てわ申鐃緒申箸鐃緒申鐃緒申蓮鐃緒申鐃緒申鐃緒申鐃緒申焚鐃緒申鐃緒申鐃緒申棔鐃�

鐃殉わ申鐃緒申鐃峻随申反鐃粛で書いわ申鐃緒申鐃緒申鐃緒申

use strict;
use warnings;
use Time::Local;
use Math::BigFloat lib => 'GMP';

my $maxdigits = shift || 1000;
my $pi = Math::BigFloat->bpi($maxdigits) . '';
$pi =~ s/3\./3/;

for my $d ( 0 .. $maxdigits - 10) {
    my ( $mo, $dd, $hh, $mm, $ss ) =
      map { substr( $pi, $d + $_ * 2, 2 ) } ( 0 .. 4 );
    eval { my $time = timelocal( $ss, $mm, $hh, $dd, $mo - 1, 100 ); };
    next if $@;
    print "$mo$dd $hh:$mm:$ss \@$d\n";
}

lib => 'GMP'鐃緒申覆鐃緒申鐃�Math::BigInt::GMP鐃緒申鐃竣わ申 Perl Core 鐃塾みで実行駕申能鐃夙なるが鐃緒申鐃緒申鐃緒申覆鐃緒申鐃緒申箸鐃緒申鐃緒申屬鐃夙誌申鐃瞬わ申鐃緒申鐃緒申鐃暑。

鐃緒申鐃熟￥申鐃緒申鐃緒申表鐃緒申鐃緒申箸辰鐃緒申鐃緒申鐃緒申鐃�

use strict;
use warnings;
use Regexp::Assemble;
use Math::BigFloat lib => 'GMP';

my $maxdigits = shift || 1000;
my $pi = Math::BigFloat->bpi($maxdigits) . '';
$pi =~ s/3\./3/;

my $re_date = do {
    my $ra = Regexp::Assemble->new;
    for my $m ( 1 .. 12 ) {
	my $ld = (qw/31 29 31 30 31 30 31 31 30 31 30 31/)[ $m - 1 ];
        for my $d ( 1 .. $ld ) {
            $ra->add( sprintf "%02d%02d", $m, $d );
        }
    }
    $ra->re;
};
my $re_hh = do {
    my $ra = Regexp::Assemble->new;
    for my $h ( 0 .. 23 ) {
        $ra->add( sprintf "%02d", $h );
    }
    $ra->re;
};
my $re_mm = do {
    my $ra = Regexp::Assemble->new;
    for my $h ( 0 .. 59 ) {
        $ra->add( sprintf "%02d", $h );
    }
    $ra->re;
};
my $re_ss = $re_mm;
my $re_piday = qr/($re_date)($re_hh)($re_mm)($re_ss)/;
warn $re_piday, "\n";
while ( $pi =~ /$re_piday/g ) {
    print "$1 $2:$3:$4 @", pos($pi) - 10, "\n";
}

Regexp::Assemble鐃緒申箸辰導擇鬚靴討鐃緒申襦�

鐃叔醐申法鐃�1000鐃緒申鐃緒申鐃緒申鐃祝どわ申鐃緒申鐃緒申鐃緒申鐃緒申奸廚鐃緒申鐃緒申辰討鐃緒申襪�鐃緒申調鐃駿てみる。鐃緒申鐃緒申鐃緒申鐃緒申1000鐃緒申鐃緒申鐃竣誌申鐃緒申鐃緒申鐃緒申里呂鐃緒申弔鐃緒申里如鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里箸鐃緒申鐃緒申鐃緒申鐃緒申匱擇鐃緒申襪鰹申箸砲鐃緒申襦ｏ申綉�鐃緒申鐃緒申鐃宿わ申$pi鐃緒申鐃緒申鐃緒申鐃淑駕申鐃塾よう鐃祝わ申鐃緒申鐃�OK鐃緒申鐃緒申 

use LWP::Simple;

my $pi = 3
    . get('ftp://pi.super-computing.org/pub/pi200m/pi200m.ascii.01of20');
$pi =~ s/\D//g;

% perl piday-10m.pl | wc
   27069   81207  619577

鐃緒申鐃緒申鐃巡々鐃緒申続鐃緒申鐃銃わ申鐃緒申鐃出￥申鐃緒申鐃緒申鐃薯すべて￥申hyuki表鐃緒申鐃竣￥申鐃緒申鐃淑わ申鐃緒申鐃�07鐃緒申26鐃緒申 02:49:14鐃竣ではなわ申297鐃夙居申鐃述わ申鐃暑こ鐃夙わ申鐃峻駕申能鐃叔はなわ申鐃緒申鐃緒申鐃祝醐申鐃緒申鐃暑。1000鐃緒申鐃緒申鐃緒申个鐃�27069鐃緒申鐃緒申鐃緒申鐃春随申鐃竣になわ申鐃塾�鐃緒申0.2%鐃夙わ申鐃緒申函鐃�31,622,400鐃緒申鐃緒申鐃緒申鐃緒申嫂鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申弔鐃緒申鐃塾には￥申鐃熟わ申鐃潤か鐃緒申 6,324,480,000 鐃緒申曚匹陸个鐃緒申鐃緒申鐃緒申足鐃所そ鐃緒申鐃緒申鐃夙駕申測鐃叔わ申鐃暑が鐃緒申鐃緒申呂鐃緒申鐃緒申法鐃�

Dan the Transcendental Perl Monger @5787597