Data commit

Task/Loops-N-plus-one-half/Tcl/loops-n-plus-one-half-1.tcl

@@ -0,0 +1,6 @@
+for {set i 1; set end 10} true {incr i} {
+    puts -nonewline $i
+    if {$i >= $end} break
+    puts -nonewline ", "
+}
+puts ""

Task/Loops-N-plus-one-half/Tcl/loops-n-plus-one-half-2.tcl

@@ -0,0 +1,9 @@
+proc range {from to} {
+    set result {}
+    for {set i $from} {$i <= $to} {incr i} {
+        lappend result $i
+    }
+    return $i
+}
+
+puts [join [range 1 10] ", "] ;# ==> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10