A-M baby

Task/Loops-For/Tcl/loops-for-1.tcl

@@ -0,0 +1,6 @@
+for {set lines 1} {$lines <= 5} {incr lines} {
+    for {set i 1} {$i <= $lines} {incr i} {
+        puts -nonewline "*"
+    }
+    puts ""
+}

Task/Loops-For/Tcl/loops-for-2.tcl

@@ -0,0 +1,3 @@
+for {set i 1} {$i <= 5} {incr i} {
+    puts [string repeat "*" $i]
+}

Task/Loops-For/Tcl/loops-for-3.tcl

@@ -0,0 +1,4 @@
+set line ""
+for { set io [open test.txt r] } { ![eof $io] } { gets $io line } {
+    if { $line != "" } { ...do something here... }
+}