1 REM https://rosettacode.org/wiki/Prime_decomposition 10 LET loops = 100 20 FOR x = 1 TO loops 30 LET n = x 40 PRINT n; " : "; 50 LET c = 0 60 IF n MOD 2 > 0 THEN 110 70 LET n = INT(n / 2) 80 LET @(c) = 2 90 LET c = c + 1 100 IF n MOD 2 = 0 THEN 70 110 FOR i = 3 TO SQR(n) STEP 2 120 IF n MOD i > 0 THEN 170 130 LET n = INT(n / i) 140 LET @(c) = i 150 LET c = c + 1 160 IF n MOD i = 0 THEN 130 170 NEXT i 180 IF n <= 2 THEN 210 190 LET @(c) = n 200 LET c = c + 1 210 FOR y = 0 TO c 220 IF @(y) = 0 THEN 250 230 PRINT @(y); " "; 240 LET @(y) = 0 250 NEXT y 260 PRINT 270 NEXT x
Return to Example Index