CDE

Task/Conditional-structures/Tcl/conditional-structures-1.tcl

@@ -0,0 +1,7 @@
+if {$foo == 3} {
+    puts "foo is three"
+} elseif {$foo == 4} {
+    puts "foo is four"
+} else {
+    puts "foo is neither three nor four"
+}

Task/Conditional-structures/Tcl/conditional-structures-2.tcl

@@ -0,0 +1 @@
+set result [expr { $foo == 3 ? "three" : "not three" }]

Task/Conditional-structures/Tcl/conditional-structures-3.tcl

@@ -0,0 +1,5 @@
+switch -- $foo {
+    3 {puts "foo is three"}
+    4 {puts "foo is four"}
+    default {puts "foo is something else"}
+}