RosettaCodeData/Task/Generic-swap/Zkl/generic-swap.zkl
2017-09-25 22:28:19 +02:00

9 lines
230 B
Text

class C{var v; fcn init(n){v=n}}
var c1=C(1), c2=C(2);
println(c1.v," : ",c2.v);
fcn swap(ca,cb,name){
tmp:=ca.resove(name);
ca.setVar(name,cb.resolve(name)); cb.setVar(name,tmp)
}
swap(c1,c2,"v");
println(c1.v," : ",c2.v);