Part 1 only for now, probably not the most optimal solution (calculating all possible rectangles) but at least it's short ^^
::spoiler Code
$ 7,1
$ 11,1
$ 11,7
$ 9,7
$ 9,5
$ 2,5
$ 2,3
$ 7,3
# &fras "input-9.txt" β
β(βββΈβ @,)βΈβ @\n
β§
<2
β‘(/Γ+β-ββ§β₯Β°β)
/β₯
:::
Not really proud of this one. Part 1's still ok, just calculated all distances between boxes after realizing it's not that many (499500, a reasonable amount I think, relatively speaking).
The dumbest thing I did this time was manually implementing the function to take the first n rows of an array by using a loop. Only when I was working on part 2 did I realize that I can just use the "take" function Uiua provides. Additionally, I even had some mistake in my reimplementation of it that only caused issues in part 2 somehow.
For anyone interested, it's the commented out line in Pβ below.
Part 2 is just a brute force. For the actual input, I searched manually until I got to the pair number just before the actual solution because I didn't want it to run that long and it takes long enough as is.
Code
$ 162,817,812
$ 57,618,57
$ 906,360,560
$ 592,479,940
$ 352,342,300
$ 466,668,158
$ 542,29,236
$ 431,825,988
$ 739,650,466
$ 52,470,668
$ 216,146,977
$ 819,987,18
$ 117,168,530
$ 805,96,715
$ 346,949,466
$ 970,615,88
$ 941,993,340
$ 862,61,35
$ 984,92,344
$ 425,690,689
Dist β β(β‘Β°β)/+β΅-Β°β
Prep β (
β(βββΈβ @,)βΈβ @\n
β§
<2
βββΈβ‘Dist
)
Merge β (
ββββ
{}
β₯(β£(β(Β°β
β‘β₯(
ββΈΛβ‘β(>/+ββ¨(Γββ
⧻))
β΄ββ(ββ©ββ½βΒ¬)
)β
)
β
| β)
)β
ββ
)
Pβ β (
Prep
# β₯ββ(ββ€β‘Β°Λβ)
βββ
Merge
ββ‘β⧻
/Γβββ
)
Pβ β (
Prep
1_0
βΈβ’(
βΒ°Λβ(
β+β
β
ββ
β(Merge
β⧻β’)
)
| <20β£)
-ββ’
β‘
ΓΒ°ββ‘ββ
)
[βPβPβ]
β‘(&p $"Part _: _") 1_2
Part 1 was fun, though I had quite some frustration with getting the loop work the way I wanted it to.
For part 2 I didn't actually need to modify that much, just pass another function to deal with the list of tachyons: part 1, remove duplicates, part 2, don't remove and count at the end. Easy. Or so I thought.
I realized something was wrong when it just wouldn't stop running and the fan got louder.
Today I started over from scratch and decided to solve both parts at once since I basically got the counts for each row anyways, so I just had to change the way the splitting was handled.
There was one occasion where I got an error that the resulting array would be too big (~4GB) but at least I got a warning instead of seeing RAM usage spike suddenly :P
Code
$ .......S.......
$ ...............
$ .......^.......
$ ...............
$ ......^.^......
$ ...............
$ .....^.^.^.....
$ ...............
$ ....^.^...^....
$ ...............
$ ...^.^...^.^...
$ ...............
$ ..^...^.....^..
$ ...............
$ .^.^.^.^.^...^.
$ ...............
# &fras "input-7.txt" β
βββΈβ @\n
β(=@Sβ‘β)(ββ>0βΈβ‘/+=@^ββ)
ShootSplit β (
β€(=2+>0)
⧻βΈβ
β(ββ(
βββββ[⧻]
β(ββ-β+β)
/+β‘β(β¬0Λβ―ΓβΒ°β)
)
+ββ(Λβ―0⧻)β
)
)
Solve β (
0
β₯(β(+|ShootSplit|ββ‘βββ))β‘β
β
⧻
βββββ/+
)
Solve
β‘(&p $"Part _: _") 1_2
And for completeness sake:
Previous attempt
Edit: Tried to scrape the old code together but seems like it doesn't actually work like this. Probably just some small thing I missed but I don't have the mental energy to take a look at this mess again :P
Prep β β(β=@S)βββΈβ @\n
Splits! β (
Λβ€>0β‘β
⧻
β€(=⧻β€Λβ¨)
β©ββ½βΈΒ¬
βΈβ§»
β(ββ‘[β-β+β]
^β)
)
Shoot! β (
0
β’(β(+
| β£Splits!^βΈβ
0
| β=@^Β°β
)
| >0β
β
⧻)
)
PartOne β (
&fras "input-7.txt"
Prep
ββ
βShoot!β΄
)
PartTwo β (
&fras "input-7.txt"
Prep
⧻β
ββShoot!β
)
( Ν‘Β° ΝΚββ¬β΄β¬β΄
One of us! One of us!
Nice use of the inversion, I always forget that's a thing
This was fun :D
I had a fun experience just throwing the strings with both numbers and spaces at the parse function. In the online pad, everything worked out fine but running the same code on my input locally gave me a "invalid float literal" error.
I thought I'd missed some edge case in the real input again, like is often the case.
Turns out that the Uiua version I used locally had a bug that's fixed in the latest build. For once it wasn't directly my fault ^^
Code
$ 123 328 51 64
$ 45 64 387 23
$ 6 98 215 314
$ * + * +
# &fras "input-6.txt" β
Calc β (
ββββ"+*"/ββ
β‘β⨬(/+|/Γ)
/+
)
Pβ β (
β(ββ‘βΈβ @ )βΈβ @\n
ββ£βββ
β(ββ‘βββ)
Calc
)
Pβ β (
βββΈβ @\n
β⧻
ββ(Λβ―@ )
β(β(β‘β‘β)ββ(β(β’β£)βββ))Β¬β€β‘ββ
Calc
)
1_2 [βPβPβ]
β‘(&p &pf $"Part _: ")
That's a great addition :D
Running my own input I also noticed that your solution is a lot faster than mine (processing each roll individually). I'll keep that 2D-rotation in mind for the future.
Quite simple this one. Part 2 still takes a few seconds because I'm essentially checking off each roll individually.
Code
$ ..@@.@@@@.
$ @@@.@.@.@@
$ @@@@@.@.@@
$ @.@@@@..@.
$ @@.@@@@.@@
$ .@@@@@@@.@
$ .@.@.@.@@@
$ @.@@@.@@@@
$ .@@@@@@@@.
$ @.@.@@@.@.
βββΈβ @\n
=@@
Rolls β β£(⧻βΛβ€)ββΈβ‘1_1
Removable β (
β¬0β§Rolls[3_3 1_1 1_1]
ββ€4
)
Remove β ββ‘(Λβ―0⧻)
PartOne β ⧻Removable
PartTwo β (
β0
β₯(
β(β+β⧻)βRemovable
ΛRemove
)β
β
)
&pf "Part One: "
&p βΈPartOne
&pf "Part Two: "
&p PartTwo
Old Part 2
Before seeing mykl's solution this was my solution for part 2
PartTwoOld β (
0β0
β’(βββ
ββΈRemovable
+ββΈβ§»
ββΈRemove
| Β¬ββ)
ββ
β
)
It's basically the same, just that I used a while-do-loop, making the check for the ending condition myself (which took me a bit to get right because I still find loops in Uiua a bit confusing).
Using the repeat-loop as above also gets rid of the dip's (β). I could've removed them here as well but I was already deep in the trouble of getting the loop to work correctly and I liked the little face at the beginning 0β0
My original solution for part 1 was just removing the last digit, get the highest number, cut off everything up to and including that first number, get the highest number again.
Once I did part 2 I realized I can just throw in a loop, cut off parts of the end so there's enough numbers left for the subsequent iterations and keep the rest the same.
Now it works for any number of batteries and all you'd need to change is the number after Total! :D
Online pad: AoC-2025-D3
You can even use your own input by uploading a file (make sure it's using LF line endings only with a trailing one at the end) and replacing the example input with this: &rs inf &fo "input-file.txt"
Code
$ 987654321111111
$ 811111111111119
$ 234234234234278
$ 818181911112111
βββΈβ @\n
Max β β’βΈβ
Jolt! β (
Β―^
""
β₯(β(β€β‘Maxβ‘β+β
β(βββ€β
β+β))
β
)^
ββ
β
)
Total! β (
β‘(βJolt!^)
/+
)
PartOne β Total!2
PartTwo β Total!12
βΈPartOne
&pf "Part One: "
&p
PartTwo
&pf "Part Two: "
&p
I too am suffering from TMA, but it's related to archives instead of acronyms
40 hours a day, now that's some dedicated employees :O
Using un-csv is smart :o
Much nicer to look at than the double partition I've been using so far
That part 2 scares me though :P