Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
8
Task/Repeat/Tcl/repeat-1.tcl
Normal file
8
Task/Repeat/Tcl/repeat-1.tcl
Normal file
|
|
@ -0,0 +1,8 @@
|
|||
proc repeat {command count} {
|
||||
for {set i 0} {$i < $count} {incr i} {
|
||||
uplevel 1 $command
|
||||
}
|
||||
}
|
||||
|
||||
proc example {} {puts "This is an example"}
|
||||
repeat example 4
|
||||
1
Task/Repeat/Tcl/repeat-2.tcl
Normal file
1
Task/Repeat/Tcl/repeat-2.tcl
Normal file
|
|
@ -0,0 +1 @@
|
|||
time example 4
|
||||
1
Task/Repeat/Tcl/repeat-3.tcl
Normal file
1
Task/Repeat/Tcl/repeat-3.tcl
Normal file
|
|
@ -0,0 +1 @@
|
|||
repeat {puts "hello world"} 3
|
||||
Loading…
Add table
Add a link
Reference in a new issue