Mayan calendar: Difference between revisions

2020-02-29

2020-03-01

=={{header|Fortran}}==

PROGRAM MAYA_DRIVER

IMPLICIT NONE

intent(in) :: day,month,year

!

integer(kind=4) :: kin_no, winal_no, tun_no, katun_no, baktun_no, longcount_no

character(*) :: haab_carry, nightlord, tzolkin_carry, long_carry

integer :: mo,da

!

keptdays = julday(day,month,year) ! Get the Julian date for selected date

! Adjust from the beginning

numdays = numdays-startdate ! Adjust the number of days from start of Mayan Calendar

if (numdays .ge. longcount)then ! We check if we have passed a longcount and need to adjust for a new start

longcount_no = numdays/longcount

!

haab_carry = " "

L = mod((keptdays+65),365)

mo = (L/20)+1

! Ok, Now let's calculate the Tzolk´in

! The calendar starts on the 4 Ahu

tzolkin_carry = " " ! Total blank the carrier

mo = mod((keptdays+16),20) + 1

END SUBROUTINE maya_time

 

 

=={{header|Go}}==

 

import (

fmt.Printf("%s %2d %-8s %4s %-9s %-14s %s\n", dt, n, s, d, m, lc, l)

}

 

{{out}}

2020-03-01 5 Manik’ 15 K’ayab 13.0.7.5.7 G8

2071-05-16 1 Ok 18 Sip 13.2.19.4.10 G9

</pre>

 

=={{header|Julia}}==

{{trans|Go}}

 

const Tzolk´in = [

rpad(haab(date), 15), nightlord(date))

end

<pre>

Gregorian Long Count Tzolk´in Haab´ Nightlord

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

"Ak\[CloseCurlyQuote]bal", "K\[CloseCurlyQuote]an", "Chikchan",

"Kimi", "Manik\[CloseCurlyQuote]", "Lamat", "Muluk", "Ok",

longcountdata = LongCount /@ data;

lotndata = LordOfTheNight /@ data;

{{out}}

<pre>Sat 19 Jun 2004 4 Ben 16 Sotz' 12.19.11.6.13 G7

=={{header|Nim}}==

{{trans|Julia}}

 

const

for date in testDates:

let dateStr = date.format("YYYY-MM-dd")

 

{{out}}

The module <code>Math::BaseArith</code> provides mixed-radix conversion via the <code>encode</code> routine (named as in '''APL''').

{{trans|Raku}}

use warnings;

use utf8;

printf "%10s %2s %-9s %4s %-10s %-14s G%d\n",

$date, mayan_calendar_round($date), join('.',mayan_long_count($date)), lord($date);

{{out}}

<pre> Gregorian Tzolk’in Haab’ Long Lord of

=={{header|Phix}}==

{{trans|Go}}

{{out}}

<pre>

2020-03-01 5 Manik' 15 K'ayab 13.0.7.5.7 G8

2071-05-16 1 Ok 18 Sip 13.2.19.4.10 G9

</pre>

 

{{works with|Rakudo|2018.12}}

 

Chuwen Eb Ben Hix Men K’ib’ Kaban Etz’nab’ Kawak Ajaw>;

 

printf "%10s %2s %-9s %4s %-10s %-14s %6s\n", Date.new($date),

flat mayan-calendar-round($date), mayan-long-count($date).join('.'), lord($date);

{{out}}

<pre> Gregorian Tzolk’in Haab’ Long Lord of

{{libheader|Wren-date}}

{{libheader|Wren-fmt}}

 

var sacred = "Imix’ Ik’ Ak’bal K’an Chikchan Kimi Manik’ Lamat Muluk Ok Chuwen Eb Ben Hix Men K’ib’ Kaban Etz’nab’ Kawak Ajaw".split(" ")

var l = lord.call(date)

Fmt.lprint("$s $2d $-8s $4s $-9s $-14s $s", [dt, n, s, d, m, lc, l])

 

{{out}}

=={{header|zkl}}==

{{trans|Go}}

sacred=T("Imix'","Ik'","Ak'bal","K'an","Chikchan","Kimi","Manik'","Lamat","Muluk","Ok",

"Chuwen","Eb","Ben","Hix","Men","K'ib'","Kaban","Etz'nab'","Kawak","Ajaw"),

if(rem<=0) rem=9 + rem;

"G%d".fmt(rem)

println(" Date # Name Day Month Count the Night");

println("---------- -------- ------------- -------------- ---------");

longCount(ymd).concat("."),

lord(ymd)));

{{out}}

<pre>