Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
wewew
#tclsh 8.6 proc src {file args} { set argv $::argv set argc $::argc set ::argv $args set ::argc [llength $args] set code [catch {uplevel [list source $file]} return] set ::argv $argv set ::argc $argc return -code $code $return }
run
|
edit
|
history
|
help
0
dssd
Trail
proc example {required {default1 А} {default2 Б} args}
Counting occurences of substring in string
fl mul bin
Different factorial implementations
Huffman code size
test
Perfect decimal to binary add
binds