28 lines
651 B
Nim
28 lines
651 B
Nim
import strutils, future
|
|
|
|
template newSeqWith(len: int, init: expr): expr =
|
|
var result {.gensym.} = newSeq[type(init)](len)
|
|
for i in 0 .. <len:
|
|
result[i] = init
|
|
result
|
|
|
|
proc mdroot(n): tuple[mp, mdr: int] =
|
|
var mdr = @[n]
|
|
while mdr[mdr.high] > 9:
|
|
var n = 1
|
|
for dig in $mdr[mdr.high]:
|
|
n *= parseInt($dig)
|
|
mdr.add n
|
|
(mdr.high, mdr[mdr.high])
|
|
|
|
for n in [123321, 7739, 893, 899998]:
|
|
echo align($n, 6)," ",mdroot(n)
|
|
echo ""
|
|
|
|
var table = newSeqWith(10, newSeq[int]())
|
|
for n in 0..int.high:
|
|
if table.map((x: seq[int]) => x.len).min >= 5: break
|
|
table[mdroot(n).mdr].add n
|
|
|
|
for mp, val in table:
|
|
echo mp,": ",val[0..4]
|