RosettaCodeData/Task/Currying/Tcl/currying.tcl

3 lines
69 B
Tcl

interp alias {} addone {} ::tcl::mathop::+ 1
puts [addone 6]; # => 7