RosettaCodeData/Task/Digital-root-Multiplicative-digital-root/Jq/digital-root-multiplicative-digital-root-2.jq
2017-09-25 22:28:19 +02:00

15 lines
276 B
Text

def neatly:
. as $in
| range(0;length)
| "\(.): \($in[.])";
def rjust(n): tostring | (n-length)*" " + .;
# The task:
" i : [MDR, MP]",
((123321, 7739, 893, 899998) as $i
| "\($i|rjust(6)): \(mdroot($i))"),
"",
"Tabulation",
"MDR: [n0..n4]",
(tabulate(5) | neatly)