Mayan numerals: Difference between revisions
Add J
Not a robot (talk | contribs) (Add APL) |
Not a robot (talk | contribs) (Add J) |
||
Line 1,037:
|Θ
|}
=={{header|J}}==
J does not support Unicode by default.
<lang J>elems =: 6 4$' . .. ... ....----'
digit =: (elems{~5:<.0:>.15 10 5 0-~])`((4 4$_14{.'@')&[)@.(0&=)
mayan =: ":@(digit each@(20&#.^:_1))</lang>
{{out}}
<pre style='height: 50ex; line-height: normal;'> mayan 4005
+----+----+----+
| | | |
| | | |
|----| | |
|----| @ |----|
+----+----+----+
mayan 8017
+----+----+----+----+
| | | | .. |
| | | |----|
| | | |----|
| . | @ | @ |----|
+----+----+----+----+
mayan 326205
+----+----+----+----+----+
| | | | | |
| | |----| | |
| | |----|----| |
| .. | @ |----|----|----|
+----+----+----+----+----+
mayan 886205
+----+----+----+----+----+
| | | | | |
| | |----| | |
| |----|----|----| |
|----|----|----|----|----|
+----+----+----+----+----+
mayan 717784
+----+----+----+----+----+
| | | | | |
| | |....| | |
| |....|----|....| |
|....|----|----|----|....|
+----+----+----+----+----+
mayan 2080000
+----+----+----+----+----+
| | | | | |
|... | | | | |
|----| | | | |
|----| @ | @ | @ | @ |
+----+----+----+----+----+
mayan 12345678987654321
+----+----+----+----+----+----+----+----+----+----+----+----+----+
| | | | | | | | | | . | | . | |
| | | | .. |... | |....| | .. |----|----|----| |
| | | |----|----| |----| |----|----|----|----| |
|... | @ |----|----|----| . |----|... |----|----|----|----| . |
+----+----+----+----+----+----+----+----+----+----+----+----+----+
</pre>
=={{header|Java}}==
| |||