diff options
author | Aleteoryx <alyx@aleteoryx.me> | 2024-12-07 12:33:09 -0500 |
---|---|---|
committer | Aleteoryx <alyx@aleteoryx.me> | 2024-12-07 12:33:09 -0500 |
commit | 92dd4115528a495a2acf3958de52d5511fc3108a (patch) | |
tree | b68ad34bf1078d2ee5fc89a1ed2d1c39f306e09f /2024/tcl/05.tcl | |
parent | c33cfb0574449f074920632e9a9ff6cb78327e76 (diff) | |
download | adventofcode-92dd4115528a495a2acf3958de52d5511fc3108a.tar.gz adventofcode-92dd4115528a495a2acf3958de52d5511fc3108a.tar.bz2 adventofcode-92dd4115528a495a2acf3958de52d5511fc3108a.zip |
2024.05, 2 days late
Diffstat (limited to '2024/tcl/05.tcl')
-rwxr-xr-x | 2024/tcl/05.tcl | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/2024/tcl/05.tcl b/2024/tcl/05.tcl new file mode 100755 index 0000000..1ea1e4d --- /dev/null +++ b/2024/tcl/05.tcl @@ -0,0 +1,68 @@ +#!/bin/env tclsh + +source lib.tcl +setup 5 + +puts {Part 1: Total of middle numbers of update sets matching rules} + +set rules {} +set updates {} +set dorules 1 +foreach line $input { + if {$line == {}} {set dorules 0; continue} + if $dorules { + lassign [split $line |] X Y + dict lappend rules $X $Y + } else { + lappend updates [split $line ,] + } +} + +proc rulesorter {a b} { + global rules + if {[dict exists $rules $a] && [lsearch -exact [dict get $rules $a] $b] != -1} { return 1 } + if {[dict exists $rules $b] && [lsearch -exact [dict get $rules $b] $a] != -1} { return -1 } + return 0 +} + +#puts $rules +#puts $updates + +set middle_total 0 +set bad_updates {} +foreach update $updates { + set update1 [lassign $update seen] + set updateok 1 + foreach page $update1 { + lappend seen $page + if ![dict exists $rules $page] continue +# puts "[list $update]: $page, [dict get $rules $page], $seen" + foreach rule [dict get $rules $page] { + if {[lsearch -exact $seen $rule] != -1} { +# puts $update\n$page\n$seen\n$rule + set updateok 0 + break + } + } + if !$updateok break + } + if $updateok { +# puts "adding [lindex $update [expr {[llength $update] / 2}]] [list $update]" + incr middle_total [lindex $update [expr {[llength $update] / 2}]] + } else { + lappend bad_updates $update + } +} + +puts "Total of middle numbers: $middle_total" + +puts "" +puts {Part 2: Total of middle numbers of sorted unordered sets} + +set bad_middle_total 0 +foreach update $bad_updates { + set update [lsort -command rulesorter $update] + incr bad_middle_total [lindex $update [expr {[llength $update] / 2}]] +} + +puts "Total of middle numbers: $bad_middle_total" |