Data update

2026-02-01 16:33:20 -08:00 · 2026-02-01 16:33:20 -08:00 · 4bb20c9b71
commit 4bb20c9b71
parent 5150844a7d
7735 changed files with 38060 additions and 199180 deletions
--- a/Task/Anti-primes/Oberon/anti-primes.oberon
+++ b/Task/Anti-primes/Oberon/anti-primes.oberon
@ -12,12 +12,15 @@ MODULE AntiPrimes;
    VAR
      Facts,Div:INTEGER;
  BEGIN
-    IF N < 2 THEN RETURN 1 END;
-    Facts := 2;
-    FOR Div := 2 TO N DIV 2 DO
-      IF N MOD Div = 0 THEN INC(Facts) END;
+    IF N < 2 THEN
+      Facts := 1
+    ELSE
+      Facts := 2;
+      FOR Div := 2 TO N DIV 2 DO
+        IF N MOD Div = 0 THEN INC(Facts) END
+      END
    END;
-    RETURN Facts;
+  RETURN Facts
  END Factors;

 BEGIN