15 lines
252 B
Text
15 lines
252 B
Text
proc decompose num . primes[] .
|
|
primes[] = [ ]
|
|
t = 2
|
|
while t * t <= num
|
|
if num mod t = 0
|
|
primes[] &= t
|
|
num = num / t
|
|
else
|
|
t += 1
|
|
.
|
|
.
|
|
primes[] &= num
|
|
.
|
|
decompose 9007199254740991 r[]
|
|
print r[]
|