Posted to tcl by sebres at Tue Feb 05 14:41:48 GMT 2019view pretty
foreach edge_count {0 1 2 3 4 5 6 {test - 1} {test - 2}} { puts -nonewline "$edge_count:\t " switch $edge_count { 0 - 1 - 2 { puts "Not a polygon." } 3 { puts "This is a triangle." } 4 { puts "This is a quadrilateral." } 5 { puts "This is a pentagon." } "test - 1" - {test - 2} { puts "This is a test string" } default { puts "Unknown polygon." } } }