magical
/
adventofcode2023
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

move {#} to prelude.tcl

main
magical 2023-12-07 21:59:35 +00:00
parent 04f091e4a7
commit dfa1fc0ed5
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
day07/sol.tcl
View File

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

2
prelude.tcl
View File

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