Data update

Task/Loops-N-plus-one-half/NewLISP/loops-n-plus-one-half-2.l

@@ -0,0 +1,6 @@
+(let (xs '(a b c))
+  (until (empty? (rest xs))
+    (print (pop xs) ", "))
+  (println (pop xs)))
+
+a, b, c

Task/Loops-N-plus-one-half/NewLISP/loops-n-plus-one-half-3.l

@@ -0,0 +1,5 @@
+(let (xs (sequence 1 10)
+      x)
+  (while (set 'x (pop xs))
+    (print x)
+    (when xs (print ", "))))

Task/Loops-N-plus-one-half/NewLISP/loops-n-plus-one-half-4.l

@@ -0,0 +1 @@
+(println (join (map string (sequence 1 10)) ", "))

Task/Loops-N-plus-one-half/NewLISP/loops-n-plus-one-half-5.l

@@ -0,0 +1,10 @@
+(define (for-each-tail _func _list)
+  (until (empty? _list)
+    (_func _list)
+    (pop _list)))
+
+(for-each-tail
+  (fn (xs)
+    (print (xs 0))
+    (if (rest xs) (print ", ")))
+  (sequence 1 10))

Task/Loops-N-plus-one-half/Oberon-07/loops-n-plus-one-half-1.oberon

@@ -0,0 +1,11 @@
+MODULE LoopsNPlusOneHalf1;
+    IMPORT Out;
+
+    VAR i    :INTEGER;
+
+BEGIN
+    FOR i := 1 TO 10 DO
+        Out.Int( i, 0 );
+        IF i < 10 THEN Out.String( ", " ) END
+    END
+END LoopsNPlusOneHalf1.

Task/Loops-N-plus-one-half/Oberon-07/loops-n-plus-one-half-2.oberon

@@ -0,0 +1,16 @@
+MODULE LoopsNPlusOneHalf;
+    IMPORT Out;
+
+    VAR i    :INTEGER;
+
+BEGIN
+    i := 0;
+    WHILE i < 9 DO
+        INC( i );
+        Out.Int( i, 0 );
+        Out.String( ", " )
+    ELSIF i < 10 DO
+        INC( i );
+        Out.Int( i, 0 )
+    END
+END LoopsNPlusOneHalf.

Task/Loops-N-plus-one-half/SETL/loops-n-plus-one-half.setl

@@ -0,0 +1,11 @@
+program n_plus_one_half;
+    loop init
+        i := 1;
+    doing
+        nprint(i);
+    while i < 10 do
+        i +:= 1;
+        nprint(", ");
+    end loop;
+    print;
+end program;