Posted to tcl by sebres at Tue Feb 05 14:41:48 GMT 2019view raw

  1. foreach edge_count {0 1 2 3 4 5 6 {test - 1} {test - 2}} {
  2. puts -nonewline "$edge_count:\t "
  3. switch $edge_count {
  4. 0 -
  5. 1 -
  6. 2 {
  7. puts "Not a polygon."
  8. }
  9. 3 {
  10. puts "This is a triangle."
  11. }
  12. 4 {
  13. puts "This is a quadrilateral."
  14. }
  15. 5 {
  16. puts "This is a pentagon."
  17. }
  18. "test - 1" - {test - 2} {
  19. puts "This is a test string"
  20. }
  21. default {
  22. puts "Unknown polygon."
  23. }
  24. }
  25. }
  26.