mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Generic-swap/Tcl/generic-swap-1.tcl

5 lines
87 B
Tcl
Raw Permalink Blame History

proc swap {aName bName} {
upvar 1 $aName a $bName b
lassign [list $a $b] b a
}
Reference in New Issue View Git Blame Copy Permalink