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

Day 19 cleanup

Browse source
This commit is contained in:
Beatrice Szilvasy 2024-12-19 09:13:20 +00:00
parent 1d66e6a08c
commit 4df60f7775
1 changed files with 18 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
days/day19.st
View file

@ -16,20 +16,23 @@ Object subclass: TowelChars [
[ | dp | dp := Array new: design size + 1 withAll: 0.
dp at: 1 put: 1.
1 to: design size do: [
:i | | subtrie j c cnt |
cnt := dp at: i.
cnt > 0 ifTrue: [
subtrie := trie.
j := i.
[ j <= design size and: [subtrie notNil] ] whileTrue: [
c := design at: j.
j := j + 1.
subtrie := subtrie at: c.
subtrie ifNotNil: [
subtrie isPresent ifTrue:
[dp at: j put: cnt + (dp at: j)]].
]]].
:i | self stepDp: dp at: i design: design with: trie].
^dp at: dp size. ]
stepDp: dp at: i design: design with: trie
[ | subtrie j c cnt |
cnt := dp at: i.
cnt = 0 ifTrue: [^self].
subtrie := trie.
j := i.
[ j <= design size ] whileTrue: [
c := design at: j.
j := j + 1.
subtrie := subtrie at: c.
subtrie ifNil: [^self] ifNotNil: [
subtrie isPresent ifTrue: [
dp at: j put: cnt + (dp at: j)]]]
]
]
Object subclass: Trie [
@ -53,8 +56,8 @@ Object subclass: Trie [
]
AOC input: [ stdin contents splitDoubleNl letArrayInBlock: [
:patterns :designs |
| chars trie ways | chars := TowelChars new.
:patterns :designs | | chars trie ways |
chars := TowelChars new.
trie := Trie new.
patterns chain tokenize: ', ';
collect: [:it | chars charsToDigits: it];