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."
    }
  }  
}