21 lines
482 B
Text
21 lines
482 B
Text
HOW TO RETURN factors n:
|
|
PUT {} IN factors
|
|
PUT 2 IN factor
|
|
WHILE n >= factor:
|
|
SELECT:
|
|
n mod factor = 0:
|
|
INSERT factor IN factors
|
|
PUT n/factor IN n
|
|
ELSE:
|
|
PUT factor+1 IN factor
|
|
RETURN factors
|
|
|
|
HOW TO REPORT attractive n:
|
|
REPORT 1 = #factors #factors n
|
|
|
|
PUT 0 IN col
|
|
FOR i IN {1..120}:
|
|
IF attractive i:
|
|
WRITE i>>5
|
|
PUT col+1 IN col
|
|
IF col mod 10=0: WRITE /
|