Data commit

Task/FizzBuzz/Tcl/fizzbuzz-1.tcl

@@ -0,0 +1,9 @@
+proc fizzbuzz {n {m1 3} {m2 5}} {
+    for {set i 1} {$i <= $n} {incr i} {
+        set ans ""
+        if {$i % $m1 == 0} {append ans Fizz}
+        if {$i % $m2 == 0} {append ans Buzz}
+        puts [expr {$ans eq "" ? $i : $ans}]
+    }
+}
+fizzbuzz 100

Task/FizzBuzz/Tcl/fizzbuzz-2.tcl

@@ -0,0 +1,4 @@
+while {[incr i] < 101} {
+    set fb [if {$i % 3 == 0} {list Fizz}][if {$i % 5 == 0} {list Buzz}]
+    if {$fb ne ""} {puts $fb} {puts $i}
+}

Task/FizzBuzz/Tcl/fizzbuzz-3.tcl

@@ -0,0 +1,5 @@
+set f [lrepeat 5 "Fizz" {$i} {$i}]
+foreach i {5 10} {lset f $i "Buzz"};lset f 0 "FizzBuzz"
+for {set i 1} {$i <= 100} {incr i} {
+    puts [subst [lindex [set f [list {*}[lassign $f ff] $ff]] 0]]
+}