3 lines
142 B
Text
3 lines
142 B
Text
elems =: 6 4$' . .. ... ....----'
|
|
digit =: (elems{~5:<.0:>.15 10 5 0-~])`((4 4$_14{.'@')&[)@.(0&=)
|
|
mayan =: ":@(digit each@(20&#.^:_1))
|