Data commit

Task/Prime-decomposition/ASIC/prime-decomposition.asic

@@ -0,0 +1,35 @@
+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