Prime factors in 25 lines or less

[whodat]

Code:

INPUT "enter a number: ", x&
PRINT "the prime factors are:";
k& = 2
WHILE k& <= x&
  WHILE x& MOD k& = 0
    x& = x& / k&
    PRINT k&;
  WEND
  k& = k& + 1
WEND
PRINT

- neuro

Only 11 lines. My code has 24! :oops:


DEFLNG A-Z
CLS
INPUT "Enter positive integer"; fact
PRINT "Prime Factors are: ";
srfact = INT(SQR(fact))
DO
prime = prime + 2
srprime = INT(SQR(prime))
FOR a = 2 TO srprime
IF prime MOD a = 0 THEN EXIT FOR
NEXT a
IF a = srprime + 1 THEN
DO
k = fact MOD prime
IF k = 0 THEN
PRINT prime;
fact = fact / prime
END IF
LOOP UNTIL k > 0
END IF
IF prime = 2 THEN prime = 1
IF fact = 1 THEN EXIT DO
LOOP UNTIL prime >= srfact
IF fact <> 1 THEN PRINT fact