Mayan calendar: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Add some test outlier dates to demonstrate +- 50 year range) |
(Added Go) |
||
Line 216: | Line 216: | ||
2020-02-29 |
2020-02-29 |
||
2020-03-01 |
2020-03-01 |
||
=={{header|Go}}== |
|||
<lang go>package main |
|||
import ( |
|||
"fmt" |
|||
"strconv" |
|||
"strings" |
|||
"time" |
|||
) |
|||
var sacred = strings.Fields("Imix’ Ik’ Ak’bal K’an Chikchan Kimi Manik’ Lamat Muluk Ok Chuwen Eb Ben Hix Men K’ib’ Kaban Etz’nab’ Kawak Ajaw") |
|||
var civil = strings.Fields("Pop Wo’ Sip Sotz’ Sek Xul Yaxk’in Mol Ch’en Yax Sak’ Keh Mak K’ank’in Muwan’ Pax K’ayab Kumk’u Wayeb’") |
|||
var ( |
|||
date1 = time.Date(2012, time.December, 21, 0, 0, 0, 0, time.UTC) |
|||
date2 = time.Date(2019, time.April, 2, 0, 0, 0, 0, time.UTC) |
|||
) |
|||
func tzolkin(date time.Time) (int, string) { |
|||
diff := int(date.Sub(date1).Hours()) / 24 |
|||
rem := diff % 13 |
|||
if rem < 0 { |
|||
rem = 13 + rem |
|||
} |
|||
var num int |
|||
if rem <= 9 { |
|||
num = rem + 4 |
|||
} else { |
|||
num = rem - 9 |
|||
} |
|||
rem = diff % 20 |
|||
if rem <= 0 { |
|||
rem = 20 + rem |
|||
} |
|||
return num, sacred[rem-1] |
|||
} |
|||
func haab(date time.Time) (string, string) { |
|||
diff := int(date.Sub(date2).Hours()) / 24 |
|||
rem := diff % 365 |
|||
if rem < 0 { |
|||
rem = 365 + rem |
|||
} |
|||
month := civil[(rem+1)/20] |
|||
last := 20 |
|||
if month == "Wayeb’" { |
|||
last = 5 |
|||
} |
|||
d := rem%20 + 1 |
|||
if d < last { |
|||
return strconv.Itoa(d), month |
|||
} |
|||
return "Chum", month |
|||
} |
|||
func longCount(date time.Time) string { |
|||
diff := int(date.Sub(date1).Hours()) / 24 |
|||
diff += 13 * 400 * 360 |
|||
baktun := diff / (400 * 360) |
|||
diff -= baktun * 400 * 360 |
|||
katun := diff / (20 * 360) |
|||
diff -= katun * 20 * 360 |
|||
tun := diff / 360 |
|||
diff -= tun * 360 |
|||
winal := diff / 20 |
|||
kin := diff - winal*20 |
|||
return fmt.Sprintf("%d.%d.%d.%d.%d", baktun, katun, tun, winal, kin) |
|||
} |
|||
func lord(date time.Time) string { |
|||
diff := int(date.Sub(date1).Hours()) / 24 |
|||
rem := diff % 9 |
|||
if rem <= 0 { |
|||
rem = 9 + rem |
|||
} |
|||
return fmt.Sprintf("G%d", rem) |
|||
} |
|||
func main() { |
|||
const shortForm = "2006-01-02" |
|||
dates := []string{ |
|||
"2004-06-19", |
|||
"2012-12-18", |
|||
"2012-12-21", |
|||
"2019-01-19", |
|||
"2019-03-27", |
|||
"2020-02-29", |
|||
"2020-03-01", |
|||
} |
|||
fmt.Println(" Gregorian Tzolk’in Haab’ Long Lord of") |
|||
fmt.Println(" Date # Name Day Month Count the Night") |
|||
fmt.Println("---------- -------- ------------- -------------- ---------") |
|||
for _, dt := range dates { |
|||
date, _ := time.Parse(shortForm, dt) |
|||
n, s := tzolkin(date) |
|||
d, m := haab(date) |
|||
lc := longCount(date) |
|||
l := lord(date) |
|||
fmt.Printf("%s %2d %-8s %4s %-9s %-14s %s\n", dt, n, s, d, m, lc, l) |
|||
} |
|||
}</lang> |
|||
{{out}} |
|||
<pre> |
|||
Gregorian Tzolk’in Haab’ Long Lord of |
|||
Date # Name Day Month Count the Night |
|||
---------- -------- ------------- -------------- --------- |
|||
2004-06-19 4 Ben 16 Sotz’ 12.19.11.6.13 G7 |
|||
2012-12-18 1 Kaban Chum K’ank’in 12.19.19.17.17 G6 |
|||
2012-12-21 4 Ajaw 3 K’ank’in 13.0.0.0.0 G9 |
|||
2019-01-19 1 Ajaw 13 Muwan’ 13.0.6.3.0 G6 |
|||
2019-03-27 3 Manik’ Chum Wayeb’ 13.0.6.6.7 G1 |
|||
2020-02-29 4 Kimi 14 K’ayab 13.0.7.5.6 G7 |
|||
2020-03-01 5 Manik’ 15 K’ayab 13.0.7.5.7 G8 |
|||
</pre> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |