5 lines
76 B
Tcl
5 lines
76 B
Tcl
set a 1
|
|
set b 2
|
|
puts "before\ta=$a\tb=$b"
|
|
swap a b
|
|
puts "after\ta=$a\tb=$b"
|