move {#} to prelude.tcl

这个提交包含在:
magical 2023-12-07 21:59:35 +00:00
父节点 04f091e4a7
当前提交 dfa1fc0ed5
共有 2 个文件被更改,包括 3 次插入2 次删除

查看文件

@ -1,6 +1,5 @@
#!/usr/bin/env tclsh
#source ../prelude.tcl
proc {#} args {}
source ../prelude.tcl
proc parse input {
return [join [split [read $input] "\n"]]

查看文件

@ -2,6 +2,8 @@ package require Tcl 8.6
namespace import tcl::mathfunc::min
namespace import tcl::mathfunc::max
proc {#} args {}
proc ladd {list} {
set t 0
foreach x $list { incr t $x }