Posted to tcl by mookie at Thu Aug 07 21:33:39 GMT 2025view raw
- % isIt3
- 1
- 0
- 2
- 0
- 2
- 0
- 2
- 4
- 5
- 4
- 1
- 4
- 2
- 0
- 4
- 0
- I found three
- ----
- proc isIt3 {} {
- variable 3 [expr {int(rand()*6)}]
- switch $3 {
- 3 { puts "I found three" }
- default { puts "$3" ; isIt3 }
- } ;# end switch
- }