eutro/aoc2024
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 5 cleanup

Browse source
This commit is contained in:
Beatrice Szilvasy 2024-12-05 13:51:32 +00:00
parent 71c3cf9b38
commit 0d9eb13b5b
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
days/day05.st
View file

@ -7,7 +7,7 @@ Object subclass: Ordering [
| beforeMap |
initialize [beforeMap := Dictionary new]
graphviz
graphviz "Very elucidating!"
[ AOC visualizeWithExt: '.dot' do: [
:stream |
stream << 'digraph {'.
@ -31,7 +31,7 @@ Object subclass: Ordering [
^true ]
sort: man
[ ^man asSortedCollection: [ :x :y | ((beforeMap at: y) includes: x) ] ]
[ ^man asSortedCollection: [ :x :y | (beforeMap at: y) includes: x ] ]
]
Collection extend [
@ -45,11 +45,9 @@ AOC input: [ (stdin contents tokenize: (String with: $<10> with: $<10>))
rules lines do: [ :rule | ord addRule: rule ].
mans := seqs lines collect: [
:seq | seq chain tokenize: ','; collect: [:x | x asNumber] ].
"ord graphviz."
{ord . mans} ] ];
part1: [ :ord :mans | mans select: [ :man | ord isValid: man ] ];
part2: [ :ord :mans |
mans chain reject: [ :man | ord isValid: man ];
part2: [ :ord :mans | mans chain reject: [ :man | ord isValid: man ];
collect: [ :man | ord sort: man ] ];
result: [ :ordAndMans :part |
part chain valueWithArguments: ordAndMans;