Data update

Task/Semiprime/EasyLang/semiprime.easy

@@ -1,19 +1,25 @@
-func semiprime n .
-   a = 2
-   while c < 3 and n > 1
-      if n mod a = 0
-         n /= a
-         c += 1
-      else
-         a += 1
+fastfunc factor num .
+   i = 2
+   while i <= sqrt num
+      if num mod i = 0
+         return i
       .
+      i += 1
    .
-   if c = 2
+   return 1
+.
+func semiprime n .
+   f1 = factor n
+   if f1 = 1
+      return 0
+   .
+   f2 = n div f1
+   if factor f1 = 1 and factor f2 = 1
       return 1
    .
    return 0
 .
-for i = 1 to 100
+for i = 1 to 1000
    if semiprime i = 1
       write i & " "
    .