Data commit

Task/Almost-prime/Chipmunk-Basic/almost-prime.basic

@@ -0,0 +1,24 @@
+10  'Almost prime
+20  FOR k = 1 TO 5
+30  PRINT "k = "; k; ":";
+40  LET i = 2
+50  LET c = 0
+60  WHILE c < 10
+70   LET an = i: GOSUB 150
+80   IF iskprime <> 0 THEN PRINT USING " ###"; i; : LET c = c + 1
+90   LET i = i + 1
+100 WEND
+110 PRINT
+120 NEXT k
+130 END
+140 ' Check if n (AN) is a k (K) prime
+150 LET f = 0
+160 FOR j = 2 TO an
+170 WHILE an MOD j = 0
+180   IF f = k THEN LET iskprime = 0: RETURN
+190   LET f = f + 1
+200   LET an = INT(an / j)
+210 WEND
+220 NEXT j
+230 LET iskprime = (f = k)
+240 RETURN