Data commit

Task/Semiprime/Lingo/semiprime-1.lingo

@@ -0,0 +1,13 @@
+on isSemiPrime (n)
+    div = 2
+    cnt = 0
+    repeat while cnt < 3 and n <> 1
+        if n mod div = 0 then
+            n = n / div
+            cnt = cnt + 1
+        else
+            div = div + 1
+        end if
+    end repeat
+    return cnt=2
+end

Task/Semiprime/Lingo/semiprime-2.lingo

@@ -0,0 +1,5 @@
+res = []
+repeat with i = 1 to 100
+    if isSemiPrime(i) then res.add(i)
+end repeat
+put res