Rosetta Code

Mayan calendar: Difference between revisions

Page Discussion

Mayan calendar (view source)

Revision as of 15:37, 20 January 2019

30 bytes removed ,  5 years ago
m
→‎{{header|Perl 6}}: a little more minor tweaking
m (Add a few more references)
m (→‎{{header|Perl 6}}: a little more minor tweaking)
Line 243:
 
sub haab ($date, $factor = 'GMT') {
my $offsetindex = (offset Date.new($date) + %correlation{$factor}<round>[2]) % 365;
my $index = ($offset + %correlation{$factor}<round>[2]) % 365;
my ($day, $month);
if $index > 360 {
Line 275 ⟶ 274:
 
sub mayan-long-count ($date, $factor = 'GMT') {
my $offsetdays = %correlation{$factor}<long> + offset Date.new($date);
reverse $offsetdays.polymod(20,18,20,20);
}
 
Thundergnat
10,327

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/287591"