Mayan numerals: Difference between revisions
Add APL
Not a robot (talk | contribs) (Add APL) |
|||
Line 140:
:* The Wikipedia entry: [[https://en.wikipedia.org/wiki/Maya_numerals Mayan numerals]]
<br><br>
=={{header|APL}}==
{{works with|Dyalog APL}}
<lang APL>mayan←{
ds←6 4⍴' . .. ... ....────'
d←{ ⍵=0:4 4⍴¯14↑'Θ'
ds[1+5⌊0⌈⍵-15 10 5 0;]
}¨20(⊥⍣¯1)⍵
top←'╔',(1↓∊(≢d)⍴⊂'╦════'),'╗'
btm←'╚',(1↓∊(≢d)⍴⊂'╩════'),'╝'
top⍪((⊃,/'║',¨d),'║')⍪btm
}</lang>
{{out}}
<pre style='line-height: normal; height: 50ex;> mayan 4005
╔════╦════╦════╗
║ ║ ║ ║
║ ║ ║ ║
║────║ ║ ║
║────║ Θ ║────║
╚════╩════╩════╝
mayan 8017
╔════╦════╦════╦════╗
║ ║ ║ ║ .. ║
║ ║ ║ ║────║
║ ║ ║ ║────║
║ . ║ Θ ║ Θ ║────║
╚════╩════╩════╩════╝
mayan 326205
╔════╦════╦════╦════╦════╗
║ ║ ║ ║ ║ ║
║ ║ ║────║ ║ ║
║ ║ ║────║────║ ║
║ .. ║ Θ ║────║────║────║
╚════╩════╩════╩════╩════╝
mayan 886205
╔════╦════╦════╦════╦════╗
║ ║ ║ ║ ║ ║
║ ║ ║────║ ║ ║
║ ║────║────║────║ ║
║────║────║────║────║────║
╚════╩════╩════╩════╩════╝
mayan 717784
╔════╦════╦════╦════╦════╗
║ ║ ║ ║ ║ ║
║ ║ ║....║ ║ ║
║ ║....║────║....║ ║
║....║────║────║────║....║
╚════╩════╩════╩════╩════╝
mayan 2080000 ⍝ It's not the end of the world
╔════╦════╦════╦════╦════╗
║ ║ ║ ║ ║ ║
║... ║ ║ ║ ║ ║
║────║ ║ ║ ║ ║
║────║ Θ ║ Θ ║ Θ ║ Θ ║
╚════╩════╩════╩════╩════╝</pre>
=={{header|AppleScript}}==
| |||