36 lines
613 B
Text
36 lines
613 B
Text
|
REM Prime decomposition
|
||
|
|
DIM Facs(14)
|
||
|
|
REM -(2^15) has most prime factors (15 twos) than other 16-bit signed integer.
|
||
|
|
PRINT "Enter a number";
|
||
|
|
INPUT N
|
||
|
|
GOSUB CalcFacs:
|
||
|
|
FacsCntM1 = FacsCnt - 1
|
||
|
|
FOR I = 0 TO FacsCntM1
|
||
|
|
PRINT Facs(I);
|
||
|
|
NEXT I
|
||
|
|
PRINT
|
||
|
|
END
|
||
|
|
|
||
|
|
CalcFacs:
|
||
|
|
N = ABS(N)
|
||
|
|
FacsCnt = 0
|
||
|
|
IF N >= 2 THEN
|
||
|
|
I = 2
|
||
|
|
SqrI = I * I
|
||
|
|
WHILE SqrI <= N
|
||
|
|
NModI = N MOD I
|
||
|
|
IF NModI = 0 THEN
|
||
|
|
N = N / I
|
||
|
|
Facs(FacsCnt) = I
|
||
|
|
FacsCnt = FacsCnt + 1
|
||
|
|
I = 2
|
||
|
|
ELSE
|
||
|
|
I = I + 1
|
||
|
|
ENDIF
|
||
|
|
SqrI = I * I
|
||
|
|
WEND
|
||
|
|
Facs(FacsCnt) = N
|
||
|
|
FacsCnt = FacsCnt + 1
|
||
|
|
ENDIF
|
||
|
|
RETURN
|