Posted to tcl by sebres at Tue Feb 05 14:41:48 GMT 2019view raw
- 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."
- }
- }
- }