28 lines
733 B
Plaintext
28 lines
733 B
Plaintext
ClearAll[MakeLengthFive, MayanNumeral]
|
|
MakeLengthFive[ci_String] := Module[{c},
|
|
c = If[EvenQ[StringLength[ci]], ci <> " ", ci];
|
|
While[StringLength[c] < 5, c = " " <> c <> " "];
|
|
c
|
|
]
|
|
MayanNumeral[n_Integer?Positive] := Module[{nums, q, r, c},
|
|
nums = IntegerDigits[n, 20];
|
|
Row[Table[
|
|
{q, r} = QuotientRemainder[m, 5];
|
|
If[{q, r} =!= {0, 0},
|
|
c = Prepend[ConstantArray["-----", q], StringJoin[ConstantArray[".", r]]];
|
|
c = Join[ConstantArray["", 4 - Length[c]], c];
|
|
c
|
|
,
|
|
c = {"", "", "", "\[Theta]"}
|
|
];
|
|
Column[MakeLengthFive /@ c, Frame -> True]
|
|
,
|
|
{m, nums}
|
|
], Spacer[1]]
|
|
]
|
|
MayanNumeral[4005]
|
|
MayanNumeral[8017]
|
|
MayanNumeral[326205]
|
|
MayanNumeral[886205]
|
|
MayanNumeral[1337]
|