tasks a-s
This commit is contained in:
parent
47bf37c096
commit
b83f433714
12433 changed files with 156208 additions and 123 deletions
4
Task/Scope-modifiers/Tcl/scope-modifiers-3.tcl
Normal file
4
Task/Scope-modifiers/Tcl/scope-modifiers-3.tcl
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
proc decr {varName {decrement 1}} {
|
||||
upvar 1 $varName var
|
||||
incr var [expr {-$decrement}]
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue