Data update

Task/Loops-Increment-loop-index-within-loop-body/ALGOL-68/loops-increment-loop-index-within-loop-body.alg

@@ -16,13 +16,13 @@ BEGIN
             result
          FI # is prime # ;
 
-    LONG INT i := 42;
-    LONG INT n := 0;
-    WHILE n < 42 DO
+    LONG INT count := 0;
+    LONG INT i     := 42;
+    WHILE count < 42 DO
         IF is prime( i ) THEN
-            n +:= 1;
+            count +:= 1;
             print( ( "n = "
-                   , whole( n,  -2 )
+                   , whole( count,  -2 )
                    , "  "
                    , whole( i, -19 )
                    , newline

Task/Loops-Increment-loop-index-within-loop-body/NewLISP/loops-increment-loop-index-within-loop-body-2.l

@@ -0,0 +1,11 @@
+(define (prime? n) (= 1 (length (factor (int n)))))
+(define (commafy n) (reverse (join (explode (reverse (string n)) 3) ",")))
+
+(let (i 42
+      cnt 0)
+  (while (< cnt 42)
+    (++ i)
+    (when (prime? i)
+      (++ cnt)
+      (println (format "Prime %2d.  %18s" cnt (commafy i)))
+      (++ i i))))