19 lines
433 B
Nim
19 lines
433 B
Nim
import cligen, sequtils
|
|
import common
|
|
|
|
proc factor(num:int):seq[int] =
|
|
result = @[]
|
|
var i = num
|
|
while i > 1:
|
|
for x in 2..i:
|
|
if i mod x == 0:
|
|
result.add(x)
|
|
i = i div x
|
|
break
|
|
|
|
proc main(integers:seq[int]) =
|
|
for number in integers:
|
|
echo number, ": ",
|
|
map(factor(number), proc(x:int):string = $x & " ").foldl(a & b)
|
|
|
|
dispatch(main)
|