Data update

Task/Almost-prime/FutureBasic/almost-prime.basic

@@ -0,0 +1,32 @@
+local fn K_Prime( n as long, k as long ) as BOOL
+  long f = 0, i = 0
+  BOOL result
+
+  for i = 2 to n
+    while ( n mod i == 0 )
+      if f = k then exit fn = NO
+      f += 1
+      n /= i
+    wend
+  next
+  result = f = k
+end fn = result
+
+
+long i, c, k
+
+for k = 1 to 5
+  printf @"k = %ld:\b", k
+  i = 2
+  c = 0
+  while ( c < 10 )
+    if ( fn K_Prime( i, k ) )
+      printf @"%4ld\b", i
+      c++
+    end if
+    i++
+  wend
+  print
+next
+
+HandleEvents