2024/tcl/lib.tcl


1
2
3
4
5
6
7
8
9

proc setup {n} {
  puts "Advent of Code 2024 day $n Solution"
  puts "<https://adventofcode.com/2024/day/$n>"
  puts ""

  set n [string range 0$n end-1 end]
  upvar input input
  set input [open input.$n.txt]
}