Re: Perl 6 release date

in reply to Perl 6 release date

#!/usr/bin/perl
# 
# I win
# 
use warnings;
use strict;
foreach my $year (2003 .. 2010) {
    foreach my $month (1 .. 12) {
        foreach my $day (1 .. 31) {
            $month = "0$month" if($month < 10);
            $day = "0$day" if($day < 10);
            print "$year-$month-$day\n";
        }
    }
}
[download]

Sure, it has a few bugs, like not taking into account months with less than 31 days. It doesn't change the fact that I still win if perl6 is released between 2003 and 2010 :)

In Section Meditations