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).

 

║ ││║

║ ∙││║

║ ∙││║

╚════╝

<br><br>

 

 

=={{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|Go}}==

 

import (

fmt.Println()

}

 

{{out}}

 

=={{header|Haskell}}==

import qualified Data.Map.Strict as M

import Data.Maybe (maybe)

 

main :: IO ()

main =

(putStrLn . unlines) $

 

mayanGlyph :: Int -> [[String]]

mayanGlyph =

 

mayanDigit :: Int -> [String]

mayanDigit n

| 0 /= n =

| otherwise = [[mayaZero]]

 

mayanFramed :: Int -> String

mayanFramed =

 

mayaZero, mayaOne :: Char

mayaZero = '\920'

mayaOne = '\9679'

 

mayaFive = "\9473\9473"

 

--

showIntAtBaseS base toStr n0 r0 =

let go (n, d) r =

seq s $

where

s = toStr (fromIntegral d)

r_ = s : r

 

wikiTable :: M.Map String String -> [[String]] -> String

wikiTable opts rows

| null rows = []

| otherwise =

 

leftPadded :: [[String]] -> [[String]]

leftPadded xs =

let w = maximum (length <$> xs)

{{Out}}

Mayan 4005:

{| style="text-align:center;background-color:#F0EDDE;color:#605B4B;border:2px solid silver;"

|style="width:3em;"|━━

|Θ

|}

 

=={{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()

 

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|Perl}}==

{{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.

<br>

{{out}}

<small>

(These captions are centred; to exactly match the above just add a simple caption {text-align: left;} in the style section.)

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

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

</pre>

 

=={{header|Python}}==

{{Works with|Python|3.7}}

 

from functools import (reduce)

 

 

 

# mayanNumerals :: Int -> [[String]]

 

 

 

# main :: IO ()

 

 

 

# wikiTable :: Dict -> [[a]] -> String

return lambda rows: '{| ' + reduce(

lambda a, k: (

),

['class', 'style'],

) + '\n' + '\n|-\n'.join(

'\n'.join(

'|style="' + colWidth() + cellStyle() + '"|'

)) + (

 

 

 

# cssFromDict :: Dict -> String

'''CSS string from a dictinary of key-value pairs'''

return reduce(

)

 

 

def showIntAtBase(base):

'''String representation of an integer in a given base,

'''

def wrap(toChr, n, rs):

# MAIN ---

if __name__ == '__main__':

{{Out}}

Mayan numeral representations of various integers:

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

|}

 

=={{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|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">

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

</pre>

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;"