Mayan numerals: Difference between revisions

task will be using the "vertical" format   (as displayed below).   Using the vertical format makes

it much easier to draw/construct the Mayan numerals (glyphs) with simple dots ('''.''')

make a better presentation on Rosetta Code).

 

║ ││║

║ ∙││║

║ ∙││║

╚════╝

:*   The Wikipedia entry:   [[https://en.wikipedia.org/wiki/Maya_numerals Mayan numerals]]

<br><br>

 

=={{header|APL}}==

{{works with|Dyalog APL}}

ds←6 4⍴' . .. ... ....────'

d←{ ⍵=0:4 4⍴¯14↑'Θ'

btm←'╚',(1↓∊(≢d)⍴⊂'╩════'),'╝'

top⍪((⊃,/'║',¨d),'║')⍪btm

 

{{out}}

=={{header|AppleScript}}==

Applescript supports only small integers (up to (2^29)-1 = 536870911).

use framework "Foundation"

use scripting additions

end |λ|

end script

{{Out}}

Mayan 4005:

|style="width:3em;vertical-align:bottom;"|Θ

|}

 

=={{header|C}}==

#include <string.h>

#include <stdint.h>

free(m);

return 0;

 

{{out}}

+----+----+----+----+----+----+----+</pre>

 

=={{header|Factor}}==

sequences ;

IN: rosetta-code.mayan-numerals

{ 4005 8017 326205 886205 } [ .mayan ] each ;

 

{{out}}

Mayan 4005:

|style="width:3em;vertical-align:bottom;"|●

|}

 

=={{header|Go}}==

 

import (

fmt.Println()

}

 

{{out}}

 

=={{header|Haskell}}==

import Data.List (intercalate, transpose)

import qualified Data.Map.Strict as M

leftPadded xs =

let w = maximum (length <$> xs)

{{Out}}

Mayan 4005:

 

=={{header|J}}==

 

digit =: (elems{~5:<.0:>.15 10 5 0-~])`((4 4$_14{.'@')&[)@.(0&=)

 

{{out}}

=={{header|Java}}==

Unicode characters used. See <code>Character.toChars</code>.

import java.math.BigInteger;

 

 

}

{{out}}

<pre>

 

=={{header|JavaScript}}==

'use strict';

 

// MAIN ---

return main();

{{Out}}

Mayan 4005:

|Θ

|}

 

=={{header|Julia}}==

<h4> First version, using a style sheet, output to html, with the capability of proper style within the browser.</h4>

mayan_glyphs(x, y) = (x == 0 && y == 0) ? "\n<td>Θ</td>\n" : "<td>\n" * "●" ^ x * "<br />\n───" ^ y * "</td>\n"

 

testmayan()

<h4> Version 2, using local wiki style table formatting: translation of style code from the Raku version. </h4>

 

inttomayan(n) = (s = string(n, base=20); map(ch -> reverse(divrem(parse(Int, ch, base=20), 5)), split(s, "")))

 

testmayan()

{{out}}

 

| style= "border: 2px solid DarkOrange; border-radius: 13px; border-bottom: 2px solid DarkOrange; vertical-align: bottom; text-align: center; padding: 10px;" | ●●<br>───

|}

 

=={{header|Nim}}==

{{trans|Go}}

Free adaptation of the Go version.

import algorithm

 

let mayans = digits.mapIt(it.toMayanNumeral)

mayans.draw()

 

{{out}}

{{trans|Raku}}

{{libheader|ntheory}}

 

my $t_style = '"border-collapse: separate; text-align: center; border-spacing: 3px 0px;"';

}

 

{{out}}

{| style="border-collapse: separate; text-align: center; border-spacing: 3px 0px;"

|}

 

 

 

 

 

 

 

 

 

{{out}}

With inline_css set to false. Note these are always height-4.

| .... | .... | .. | .... | .... | .... | .... | .... | .. | .... | .... |

+------+------+------+------+------+------+------+------+------+------+------+

</pre>

 

=={{header|Python}}==

{{Works with|Python|3.7}}

 

from functools import (reduce)

# MAIN ---

if __name__ == '__main__':

{{Out}}

Mayan numeral representations of various integers:

These don't particularly resemble the Mayan cartouche, more like mahjong tiles actually. It would have been ''so'' much easier and more compact if I could have put all the styling into a CSS file instead of inlining it, but oh well, it was entertaining to do.

 

my $t-style = '"border-collapse: separate; text-align: center; border-spacing: 3px 0px;"';

my $c-style = '"border: solid black 2px;background-color: #fffff0;border-bottom: double 6px;'~

 

say @output.join: "\n$joiner\n";

 

{{out}}

Or, plain old text mode. Not as pretty, but still serviceable.

 

use Terminal::Boxer;

my $joiner = "\n";

}

 

 

{{out}}

 

=={{header|REXX}}==

parse arg $ /*obtain optional arguments from the CL*/

if $='' then $= 4005 8017 326205 886205, /*Not specified? Then use the default.*/

call $MAYAN # '(overlap)' /*invoke the $MAYAN (REXX) subroutine.*/

say

The &nbsp; '''$MAYAN.REX''' &nbsp; (REXX program) subroutine can be seen here &nbsp; ───► &nbsp; [[Mayan_numerals\$MAYAN.REX]].

 

╚════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╩════╝

</pre>

 

=={{header|Rust}}==

const FIVE: &str = "——";

const ZERO: &str = "Θ";

}

mayan

{{out}}

<pre>

{{trans|Go}}

{{libheader|Wren-fmt}}

 

var ul = "╔"

draw.call(mayans)

System.print()

 

{{out}}

 

=={{header|zkl}}==

var ds=T(" "," \u2219 "," \u2219\u2219 ","\u2219\u2219\u2219 ","\u2219\u2219\u2219\u2219");

fcn mayan(m){ //--> lists of lists of strings (each line of tile)

String(fill*(3-bars), ds[dots],"\n", five*bars)[0,-1].split("\n") // tile

})

fcn displayMayan(m){ // eg 11 is ( ( ),( * ),(----),(----) )

println("\u2554", ut*(m.len()-1), hbar,"\u2557"); // top

foreach n in (4){ println(vbar, m.apply("get",n).concat(vbar), vbar) }

println("\u255a", bt*(m.len()-1), hbar,"\u255d"); // bottom

println("\n%,d:".fmt(m)); mayan(m):displayMayan(_);

{{out}}

<pre style="height:40ex">

The Raku numerals look so good, let's copy them.

{{trans|Raku}}

t_style=0''"border-collapse: separate; text-align: center; border-spacing: 3px 0px;"',

c_style=0''"border: solid black 2px;background-color: #fffff0;border-bottom: double 6px;'

}).replace("!","<br>") : display(m,_)

})

{{out}}

{| style="border-collapse: separate; text-align: center; border-spacing: 3px 0px;"