Date format: Difference between revisions
Content added Content deleted
Line 2,695: | Line 2,695: | ||
<lang perl6>my @months = <January February March April May June |
<lang perl6>my @months = <January February March April May June |
||
July August |
July August September November December>; |
||
my @days = <Sunday Monday Tuesday Wednesday Thursday Friday Saturday>; |
my @days = <Sunday Monday Tuesday Wednesday Thursday Friday Saturday>; |
||
my $us-long = sub ($self) { "{@days[$self.day-of-week]}, {@months[$self.month-1]} {$self.day}, {$self.year}" }; |
my $us-long = sub ($self) { "{@days[$self.day-of-week]}, {@months[$self.month-1]} {$self.day}, {$self.year}" }; |