Day 7: Bridge Repair
Megathread guidelines
- Keep top level comments as only solutions, if you want to say something other than a solution put it in a new post. (replies to comments can be whatever)
- You can send code in code blocks by using three backticks, the code, and then three backticks or use something such as https://topaz.github.io/paste/ if you prefer sending it through a URL
FAQ
- What is this?: Here is a post with a large amount of details: https://programming.dev/post/6637268
- Where do I participate?: https://adventofcode.com/
- Is there a leaderboard for the community?: We have a programming.dev leaderboard with the info on how to join in this post: https://programming.dev/post/6631465
I’m way behind, but I’m trying to learn F#.
I’m using the library Combinatorics in dotnet, which I’ve used in the past, generate in this case every duplicating possibility of the operations. I the only optimization that I did was to use a function to concatenate numbers without converting to strings, but that didn’t actually help much.
I have parser helpers that use ReadOnlySpans over strings to prevent unnecessary allocations. However, here I’m adding to a C# mutable list and then converting to an FSharp (linked) list, which this language is more familiar with. Not optimal, but runtime was pretty good.
I’m not terribly good with F#, but I think I did ok for this challenge.
F#
// in another file: let concatenateLong (a:Int64) (b:Int64) : Int64 = let rec countDigits (n:int64) = if n = 0 then 0 else 1 + countDigits (n / (int64 10)) let bDigits = if b = 0 then 1 else countDigits b let multiplier = pown 10 bDigits |> int64 a * multiplier + b // challenge file type Operation = {Total:Int64; Inputs:Int64 list } let parse (s:ReadOnlySpan<char>) : Operation = let sep = s.IndexOf(':') let total = Int64.Parse(s.Slice(0, sep)) let inputs = System.Collections.Generic.List<Int64>() let right:ReadOnlySpan<char> = s.Slice(sep + 1).Trim() // because the Split function on a span returns a SpanSplitEnumerator, which is a ref-struct and can only live on the stack, // I can't use the F# list syntax here for range in right.Split(" ") do inputs.Add(Int64.Parse(sliceRange right range)) {Total = total; Inputs = List.ofSeq(inputs) } let part1Ops = [(+); (*)] let execute ops input = input |> PSeq.choose (fun op -> let total = op.Total let inputs = op.Inputs let variations = Variations(ops, inputs.Length - 1, GenerateOption.WithRepetition) variations |> Seq.tryFind (fun v -> let calcTotal = (inputs[0], inputs[1..], List.ofSeq(v)) |||> List.fold2 (fun acc n f -> f acc n) calcTotal = total ) |> Option.map(fun _ -> total) ) |> PSeq.fold (fun acc n -> acc + n) 0L let part1 input = (read input parse) |> execute part1Ops let part2Ops = [(+); (*); concatenateLong] let part2 input = (read input parse) |> execute part2Ops
The Gen0 garbage collection looks absurd, but Gen0 is generally considered “free”.
Method Mean Error StdDev Gen0 Gen1 Allocated Part1 19.20 ms 0.372 ms 0.545 ms 17843.7500 156.2500 106.55 MB Part2 17.94 ms 0.355 ms 0.878 ms 17843.7500 156.2500 106.55 MB V2 - concatenate numbers did little for the runtime, but did help with Gen1 garbage, but not the overall allocation.
Method Mean Error StdDev Gen0 Gen1 Allocated Part1 17.34 ms 0.342 ms 0.336 ms 17843.7500 125.0000 106.55 MB Part2 17.24 ms 0.323 ms 0.270 ms 17843.7500 93.7500 106.55 MB Uiua
This turned out to be reasonably easy in Uiua, though this solution relies on macros which maybe slow it down.
(edit: removing one macro sped it up quite a bit)
(edit2: Letting Uiua build up an n-dimensional array turned out to be the solution, though sadly my mind only works in 3 dimensions. Now runs against the live data in around 0.3 seconds.)
Data ← ⊜(□⊜⋕⊸(¬∈": "))⊸≠@\n "190: 10 19\n3267: 81 40 27\n83: 17 5\n156: 15 6\n7290: 6 8 6 15\n161011: 16 10 13\n192: 17 8 14\n21037: 9 7 18 13\n292: 11 6 16 20" Calib! ← ≡◇⊢▽⊸≡◇(∈♭/[^0]:°⊂) # Calibration targets which can be constructed from their values. &p/+Calib!⊃(+|×)Data &p/+Calib!⊃(+|×|+×ⁿ:10+1⌊ₙ₁₀,)Data
I feel like I need a Rosetta stone to read this code
thanks that indeed is a Rosetta stone
Thanks to your solution I learned more about how to use
reduce
:DMy solution did work for the example input but not for the actual one. When I went here and saw this tiny code block and you saying
This turned out to be reasonably easy
I was quite taken aback. And it’s so much better performance-wise too :D (well, until part 2 comes along in my case. Whatever this black magic is you used there is too high for my fried brain atm)
Haha, sorry about that, it does seem quite smug :-) I went into it expecting it to be a nightmare of boxes and dimensions, but finding it something I could deal with was a massive relief. Of course once I had a working solution I reversed it back into a multi-dimensional nightmare. That’s where the performance gains came from: about 10x speedup from letting Uiua build up as many dimensions as it needed before doing a final deshaping.
I enjoyed reading a different approach to this, and thanks for reminding me that
⋕$"__"
exists, that’s a great idiom to have up your sleeve.Let me know if there’s any bits of my solution that you’d like me to talk you through.
No worries, it does seem a lot less difficult in hindsight now, my mind just blanked at what I expected to be a lot more code :))
That performance improvement is amazing, I’ll definitely take a look at how that works in detail later. Just gotta recover from the mental stretch gymnastics trying to remember the state of the stack at different code positions
Haskell
A surprisingly gentle one for the weekend! Avoiding string operations for
concatenate
got the runtime down below one second on my machine.import Control.Arrow import Control.Monad import Data.List import Data.Maybe readInput :: String -> [(Int, [Int])] readInput = lines >>> map (break (== ':') >>> (read *** map read . words . tail)) equatable :: [Int -> Int -> Int] -> (Int, [Int]) -> Bool equatable ops (x, y : ys) = elem x $ foldM apply y ys where apply a y = (\op -> a `op` y) <$> ops concatenate :: Int -> Int -> Int concatenate x y = x * mag y + y where mag z = fromJust $ find (> z) $ iterate (* 10) 10 main = do input <- readInput <$> readFile "input07" mapM_ (print . sum . map fst . (`filter` input) . equatable) [ [(+), (*)], [(+), (*), concatenate] ]
Love the fold on the list monad to apply the operations.
I wanted to this the way yo did, by repeatedly applying functions, but I didn’t dare to because I like to mess up and spend some minutes debugging signatures, may I ask what your IDE setup is for the LSP-Hints with Haskell?
Setting up on my PC was a little bit of a pain because it needed matchingghc
andghcide
versions, so I hadn’t bothered doing it on my Laptop yet.I use neovim with
haskell-tools.nvim
plugin. Forghc
,haskell-language-server
and others I usenix
which, among other benefits makes my development environment reproducible and all haskellPackages are built on the same version so there are no missmatches.But, as much as I love
nix
, there are probably easier ways to setup your environment.I just checked and I have haskell-tools.nvim on my PC but it somehow crashes the default config of the autocompletion for me, which I am too inexperienced to debug. I’ll try it nonetheless, since I don’t have autocompletion on the laptop anyways, thank you for the suggestion!
Ah, well, I have a bit of a weird setup. GHC is 9.8.4, built from git. I’m using HLS version 2.9.0.1 (again built from git) under Emacs with the LSP and flycheck packages. There are probably much easier ways of getting it to work :)
I envy emacs for all of its modes, but I don’t think I’m relearning the little I know about vi. Thank you for the answer on the versions and building!
Since all operations increase the accumulator, I tried putting a
guard (a <= x)
inapply
, but it doesn’t actually help all that much (0.65s -> 0.43s).0.65 -> 0.43 sounds pretty strong, isn’t that a one-fourth speedup?
Edit: I was able to achieve a 30% speed improvement using this on my solution
It’s not insignificant, sure, but I’d prefer 10x faster :D
Plus I’m not sure it’s worth the loss of generality and readability. It is tempting to spend hours chasing this kind of optimization though!
Haskell
import Control.Arrow import Data.Char import Text.ParserCombinators.ReadP numP = read <$> munch1 isDigit parse = endBy ((,) <$> (numP <* string ": ") <*> sepBy numP (char ' ')) (char '\n') valid n [m] = m == n valid n (x : xs) = n > 0 && valid (n - x) xs || (n `mod` x) == 0 && valid (n `div` x) xs part1 = sum . fmap fst . filter (uncurry valid . second reverse) concatNum r = (+r) . (* 10 ^ digits r) where digits = succ . floor . logBase 10 . fromIntegral allPossible [n] = [n] allPossible (x:xs) = ((x+) <$> rest) ++ ((x*) <$> rest) ++ (concatNum x <$> rest) where rest = allPossible xs part2 = sum . fmap fst . filter (uncurry elem . second (allPossible . reverse)) main = getContents >>= print . (part1 &&& part2) . fst . last . readP_to_S parse
Oooh, some nice number theory going on there!
Python
It is a tree search
def parse_input(path): with path.open("r") as fp: lines = fp.read().splitlines() roots = [int(line.split(':')[0]) for line in lines] node_lists = [[int(x) for x in line.split(':')[1][1:].split(' ')] for line in lines] return roots, node_lists def construct_tree(root, nodes, include_concat): levels = [[] for _ in range(len(nodes)+1)] levels[0] = [(str(root), "")] # level nodes are tuples of the form (val, operation) where both are str # val can be numerical or empty string # operation can be *, +, || or empty string for indl, level in enumerate(levels[1:], start=1): node = nodes[indl-1] for elem in levels[indl-1]: if elem[0]=='': continue if elem[0][-len(str(node)):] == str(node) and include_concat: levels[indl].append((elem[0][:-len(str(node))], "||")) if (a:=int(elem[0]))%(b:=int(node))==0: levels[indl].append((str(int(a/b)), '*')) if (a:=int(elem[0])) - (b:=int(node))>0: levels[indl].append((str(a - b), "+")) return levels[-1] def solve_problem(file_name, include_concat): roots, node_lists = parse_input(Path(cwd, file_name)) valid_roots = [] for root, nodes in zip(roots, node_lists): top = construct_tree(root, nodes[::-1], include_concat) if any((x[0]=='1' and x[1]=='*') or (x[0]=='0' and x[1]=='+') or (x[0]=='' and x[1]=='||') for x in top): valid_roots.append(root) return sum(valid_roots)
I asked ChatGPT to explain your code and mentioned you said it was a binary search. idk why, but it output a matter of fact response that claims you were wrong. lmao, I still don’t understand how your code works
This code doesn’t perform a classic binary search. Instead, it uses each input node to generate new possible states or “branches,” forming a tree of transformations. At each level, it tries up to three operations on the current value (remove digits, divide, subtract). These expansions create multiple paths, and the code checks which paths end in a successful condition. While the author may have described it as a “binary search,” it’s more accurately a state-space search over a tree of possible outcomes, not a binary search over a sorted data structure.
I understand it now! I took your solution and made it faster. it is now like 36 milliseconds faster for me. which is interesting because if you look at the code. I dont process the entire list of integers. I sometimes stop prematurely before the next level, clear it, and add the root. I don’t know why but it just works for my input and the test input.
code
def main(input_data): input_data = input_data.replace('\r', '') parsed_data = {int(line[0]): [int(i) for i in line[1].split()[::-1]] for line in [l.split(': ') for l in input_data.splitlines()]} part1 = 0 part2 = 0 for item in parsed_data.items(): root, num_array = item part_1_branches = [set() for _ in range(len(num_array)+1)] part_2_branches = [set() for _ in range(len(num_array)+1)] part_1_branches[0].add(root) part_2_branches[0].add(root) for level,i in enumerate(num_array): if len(part_1_branches[level]) == 0 and len(part_2_branches[level]) == 0: break for branch in part_1_branches[level]: if branch == i: part_1_branches[level+1] = set() # clear next level to prevent adding root again part1 += root break if branch % i == 0: part_1_branches[level+1].add(branch//i) if branch - i > 0: part_1_branches[level+1].add(branch-i) for branch in part_2_branches[level]: if branch == i or str(branch) == str(i): part_2_branches[level+1] = set() # clear next level to prevent adding root again part2 += root break if branch % i == 0: part_2_branches[level+1].add(branch//i) if branch - i > 0: part_2_branches[level+1].add(branch-i) if str(i) == str(branch)[-len(str(i)):]: part_2_branches[level+1].add(int(str(branch)[:-len(str(i))])) print("Part 1:", part1, "\nPart 2:", part2) return [part1, part2] if __name__ == "__main__": with open('input', 'r') as f: main(f.read())
however what I notice is that the parse_input causes it to be the reason why it is slower by 20+ milliseconds. I find that even if I edited your solution like so to be slightly faster, it is still 10 milliseconds slower than mine:
code
def parse_input(): with open('input',"r") as fp: lines = fp.read().splitlines() roots = [int(line.split(':')[0]) for line in lines] node_lists = [[int(x) for x in line.split(': ')[1].split(' ')] for line in lines] return roots, node_lists def construct_tree(root, nodes): levels = [[] for _ in range(len(nodes)+1)] levels[0] = [(root, "")] # level nodes are tuples of the form (val, operation) where both are str # val can be numerical or empty string # operation can be *, +, || or empty string for indl, level in enumerate(levels[1:], start=1): node = nodes[indl-1] for elem in levels[indl-1]: if elem[0]=='': continue if (a:=elem[0])%(b:=node)==0: levels[indl].append((a/b, '*')) if (a:=elem[0]) - (b:=node)>0: levels[indl].append((a - b, "+")) return levels[-1] def construct_tree_concat(root, nodes): levels = [[] for _ in range(len(nodes)+1)] levels[0] = [(str(root), "")] # level nodes are tuples of the form (val, operation) where both are str # val can be numerical or empty string # operation can be *, +, || or empty string for indl, level in enumerate(levels[1:], start=1): node = nodes[indl-1] for elem in levels[indl-1]: if elem[0]=='': continue if elem[0][-len(str(node)):] == str(node): levels[indl].append((elem[0][:-len(str(node))], "||")) if (a:=int(elem[0]))%(b:=int(node))==0: levels[indl].append((str(int(a/b)), '*')) if (a:=int(elem[0])) - (b:=int(node))>0: levels[indl].append((str(a - b), "+")) return levels[-1] def solve_problem(): roots, node_lists = parse_input() valid_roots_part1 = [] valid_roots_part2 = [] for root, nodes in zip(roots, node_lists): top = construct_tree(root, nodes[::-1]) if any((x[0]==1 and x[1]=='*') or (x[0]==0 and x[1]=='+') for x in top): valid_roots_part1.append(root) top = construct_tree_concat(root, nodes[::-1]) if any((x[0]=='1' and x[1]=='*') or (x[0]=='0' and x[1]=='+') or (x[0]=='' and x[1]=='||') for x in top): valid_roots_part2.append(root) return sum(valid_roots_part1),sum(valid_roots_part2) if __name__ == "__main__": print(solve_problem())
Wow I got thrashed by chatgpt. Strictly speaking that is correct, it is more akin to Tree Search. But even then not strictly because in tree search you are searching through a list of objects that is known, you build a tree out of it and based on some conditions eliminate half of the remaining tree each time. Here I have some state space (as chatgpt claims!) and again based on applying certain conditions, I eliminate some portion of the search space successively (so I dont have to evaluate that part of the tree anymore). To me both are very similar in spirit as both methods avoid evaluating some function on all the possible inputs and successively chops off a fraction of the search space. To be more correct I will atleast replace it with tree search though, thanks. And thanks for taking a close look at my solution and improving it.
idk why my gpt decided to be like that. I expected a long winded response with a little bit of ai hallucinations. I was flabbergasted, and just had to post it.
I seemingly realized that working forward through the list of integers was inefficient for me to do, and I was using multiprocessing to do it too! which my old solution took less than 15 seconds for my input. your solution to reverse the operations and eliminate paths was brilliant and made it solve it in milliseconds without spinning up my fans, lol
Uiua
Credits to @mykl@lemmy.world for the approach of using
reduce
and also how to split the input by multiple characters.
I can happily say that I learned quite a bit today, even though the first part made me frustrated enough that I went searching for other approaches ^^Part two just needed a simple modification. Changing how the input is parsed and passed to the adapted function took longer than changing the function itself actually.
Run with example input here
PartOne ← ( &rs ∞ &fo "input-7.txt" ⊜□≠@\n. ≡◇(⊜□≠@:.) ≡⍜⊡⋕0 ≡⍜(°□⊡1)(⊜⋕≠@ .) ⟜(⊡0⍉) # own attempt, produces a too low number # ≡(:∩°□°⊟ # ⍣(⍤.◡⍣(1⍤.(≤/×)⍤.(≥/+),,)0 # ⊙¤⋯⇡ⁿ:2-1⊸⧻ # ⊞(⍥(⟜⍜(⊙(↙2))(⨬+×⊙°⊟⊡0) # ↘1 # )⧻. # ⍤.=0⧻. # ) # ∈♭◌ # )0) # reduce approach found on the programming.dev AoC community by mykl@lemmy.world ≡(◇(∈/(◴♭[⊃(+|×)]))⊡0:°⊂) °□/+▽ ) PartTwo ← ( &rs ∞ &fo "input-7.txt" ⊜(□⊜⋕¬∈": ".)≠@\n. ⟜≡◇⊢ ≡◇(∈/(◴♭[≡⊃⊃(+|×|⋕$"__")]):°⊂) °□/+▽ ) &p "Day 7:" &pf "Part 1: " &p PartOne &pf "Part 2: " &p PartTwo
Team Uiua in the house!
(╯°□°)╯︵ ┻━┻
Hell yeah!
┻━┻︵ (°□°)/ ︵ ┻━┻
Factor
spoiler
TUPLE: equation value numbers ; C: <equation> equation : get-input ( -- equations ) "vocab:aoc-2024/07/input.txt" utf8 file-lines [ split-words unclip but-last string>number swap [ string>number ] map <equation> ] map ; : possible-quotations ( funcs numbers -- quots ) dup length 1 - swapd all-selections [ unclip swap ] dip [ zip concat ] with map swap '[ _ prefix >quotation ] map ; : possibly-true? ( funcs equation -- ? ) [ numbers>> possible-quotations ] [ value>> ] bi '[ call( -- n ) _ = ] any? ; : solve ( funcs -- n ) get-input [ possibly-true? ] with filter [ value>> ] map-sum ; : part1 ( -- n ) { + * } solve ; : _|| ( m n -- mn ) [ number>string ] bi@ append string>number ; : part2 ( -- n ) { + * _|| } solve ;
Slow and dumb gets it done! I may revisit this when I give up on future days.
Haskell
I’m not very proud, I copied my code for part two.
import Control.Arrow hiding (first, second) import qualified Data.List as List import qualified Data.Char as Char parseLine l = (n, os) where n = read . takeWhile (Char.isDigit) $ l os = map read . drop 1 . words $ l parse :: String -> [(Int, [Int])] parse s = map parseLine . takeWhile (/= "") . lines $ s insertOperators target (r:rs) = any (target ==) (insertOperators' r rs) insertOperators' :: Int -> [Int] -> [Int] insertOperators' acc [] = [acc] insertOperators' acc (r:rs) = insertOperators' (acc+r) rs ++ insertOperators' (acc*r) rs insertOperators2 target (r:rs) = any (target ==) (insertOperators2' r rs) insertOperators2' :: Int -> [Int] -> [Int] insertOperators2' acc [] = [acc] insertOperators2' acc (r:rs) = insertOperators2' (acc+r) rs ++ insertOperators2' (acc*r) rs ++ insertOperators2' concatN rs where concatN = read (show acc ++ show r) part1 ls = filter (uncurry insertOperators) >>> map fst >>> sum $ ls part2 ls = filter (uncurry insertOperators2) >>> map fst >>> sum $ ls main = getContents >>= print . (part1 &&& part2) . parse
If you get the right answer, it’s ok 👍
C
Big integers and overflow checking, what else is there to say 😅
Code
#include "common.h" /* returns 1 on sucess, 0 on overflow */ static int concat(uint64_t a, uint64_t b, uint64_t *out) { uint64_t mul; for (mul=1; mul<=b; mul*=10) ; return !__builtin_mul_overflow( mul, a, out) && !__builtin_add_overflow(*out, b, out); } static int recur(uint64_t expect, uint64_t acc, uint64_t arr[], int n, int p2) { uint64_t imm; return n < 1 ? acc == expect : acc >= expect ? 0 : recur(expect, acc + arr[0], arr+1, n-1, p2) || recur(expect, acc * arr[0], arr+1, n-1, p2) || (p2 && concat(acc, arr[0], &imm) && recur(expect, imm, arr+1, n-1, p2)); } int main(int argc, char **argv) { char buf[128], *tok, *rest; uint64_t p1=0, p2=0, arr[32], expect; int n; if (argc > 1) DISCARD(freopen(argv[1], "r", stdin)); while ((rest = fgets(buf, sizeof(buf), stdin))) { assert(strchr(buf, '\n')); expect = atoll(strsep(&rest, ":")); for (n=0; (tok = strsep(&rest, " ")); n++) { assert(n < (int)LEN(arr)); arr[n] = atoll(tok); } p1 += recur(expect, 0, arr, n, 0) * expect; p2 += recur(expect, 0, arr, n, 1) * expect; } printf("07: %"PRIu64" %"PRIu64"\n", p1, p2); return 0; }
J
Didn’t try to make it clever at all, so it’s fairly slow (minutes, not seconds). Maybe rewriting
foldl_ops
in terms of destructive array update would improve matters, but the biggest problem is that I don’t skip unnecessary calculations (because we’ve already found a match or already reached too big a number). This is concise and follows clearly from the definitions, however.data_file_name =: '7.data lines =: cutopen fread data_file_name NB. parse_line yields a boxed vector of length 2, target ; operands NB. &. is "under": u &. v is v^:_1 @: u @: v with right rank of v parse_line =: monad : '(". &. >) (>y) ({.~ ; (}.~ >:)) '':'' i.~ >y' NB. m foldl_ops n left folds n by the string of binary operators named by m, NB. as indices into the global operators, the leftmost element of m naming NB. an operator between the leftmost two elements of n. #m must be #n - 1. foldl_ops =: dyad define if. 1 >: # y do. {. y else. (}. x) foldl_ops (((operators @. ({. x))/ 2 {. y) , 2 }. y) end. ) NB. b digit_strings n enumerates i.b^n as right justified digit strings digit_strings =: dyad : '(y # x) #:"1 0 i. x ^ y' feasible =: dyad define operators =: x NB. global 'target operands' =. y +./ target = ((# operators) digit_strings (<: # operands)) foldl_ops"1 operands ) compute =: monad : '+/ ((> @: {.) * (y & feasible))"1 parse_line"0 lines' result1 =: compute +`* concat =: , &.: (10 & #.^:_1) result2 =: compute +`*`concat
Lisp
Could probably go much faster if I kept track of calculations to not repeat, but 4 seconds for part 2 on my old laptop is good enough for me. Also, not really a big change from part 1 to part 2.
Part 1 and 2
(defstruct calibration result inputs) (defun p1-process-line (line) (let ((parts (str:words line))) (make-calibration :result (parse-integer (car parts) :junk-allowed t) :inputs (mapcar #'parse-integer (cdr parts))))) (defun apply-opperators (c opps) (let ((accum (car (calibration-inputs c)))) (loop for o in opps for v in (cdr (calibration-inputs c)) until (> accum (calibration-result c)) if (eql o 'ADD) do (setf accum (+ accum v)) else if (eql o 'MUL) do (setf accum (* accum v)) else do (setf accum (+ v (* accum (expt 10 (1+ (floor (log v 10))))))) finally (return accum) ))) (defun generate-operators (item-count) (labels ((g-rec (c results) (if (< c 1) results (g-rec (1- c) (loop for r in results collect (cons 'ADD r) collect (cons 'MUL r)))))) (g-rec (1- item-count) '((ADD) (MUL))))) (defun generate-ops-hash (c gen-ops) (let ((h (make-hash-table))) (dotimes (x c) (setf (gethash (+ 2 x) h) (funcall gen-ops (+ 1 x)))) h)) (defun validate-calibration (c ops-h) (let ((r (calibration-result c)) (ops (gethash (length (calibration-inputs c)) ops-h))) (loop for o in ops for v = (apply-opperators c o) when (= v r) return t))) (defun run-p1 (file) (let ((calibrations (read-file file #'p1-process-line)) (ops (generate-ops-hash 13 #'generate-operators))) (loop for c in calibrations when (validate-calibration c ops) sum (calibration-result c)))) (defun generate-operators-p2 (item-count) (labels ((g-rec (c results) (if (< c 1) results (g-rec (1- c) (loop for r in results collect (cons 'ADD r) collect (cons 'MUL r) collect (cons 'CAT r)))))) (g-rec (1- item-count) '((ADD) (MUL) (CAT))))) (defun run-p2 (file) (let ((calibrations (read-file file #'p1-process-line)) (ops (generate-ops-hash 13 #'generate-operators-p2))) (loop for c in calibrations when (validate-calibration c ops) sum (calibration-result c))))
Java
Today was pretty easy one but for some reason I spent like 20 minutes overthinking part 2 when all it needed was one new
else if
. I initially through the concatenation operator would take precedence even tho it clearly says “All operators are still evaluated left-to-right” in the instructions…I’m sure there are optimizations to do but using parallelStreams it only takes around 300ms total on my machine so there’s no point really
The code
import java.io.IOException; import java.nio.charset.StandardCharsets; import java.nio.file.Files; import java.nio.file.Path; import java.util.Arrays; import java.util.List; public class Day7 { public static void main(final String[] _args) throws IOException { final List<Equation> equations = Files.readAllLines(Path.of("2024\\07\\input.txt"), StandardCharsets.UTF_8).stream() .map(line -> line.split(":\\s")) .map(line -> new Equation( Long.parseLong(line[0]), Arrays.stream(line[1].split("\\s")) .map(Integer::parseInt) .toArray(Integer[]::new) ) ).toList(); final char[] part1Operators = {'+', '*'}; System.out.println("Part 1: " + equations.parallelStream() .mapToLong(equation -> getResultIfPossible(equation, part1Operators)) .sum() ); final char[] part2Operators = {'+', '*', '|'}; System.out.println("Part 2: " + equations.parallelStream() .mapToLong(equation -> getResultIfPossible(equation, part2Operators)) .sum() ); } private static Long getResultIfPossible(final Equation equation, final char[] operators) { final var permutations = Math.pow(operators.length, equation.values.length - 1); for (int i = 0; i < permutations; i++) { long result = equation.values[0]; int count = i; for (int j = 0; j < equation.values.length - 1; j++) { // If the result is already larger than the expected one, we can short circuit here to save some time if (result > equation.result) { break; } final char operator = operators[count % operators.length]; count /= operators.length; if (operator == '+') { result += equation.values[j + 1]; } else if (operator == '*') { result *= equation.values[j + 1]; } else if (operator == '|') { result = Long.parseLong(String.valueOf(result) + String.valueOf(equation.values[j + 1])); } else { throw new RuntimeException("Unsupported operator " + operator); } } if (result == equation.result) { return result; } } return 0L; } private static record Equation(long result, Integer[] values) {} }
C#
public class Day07 : Solver { private ImmutableList<(long, ImmutableList<long>)> equations; public void Presolve(string input) { equations = input.Trim().Split("\n") .Select(line => line.Split(": ")) .Select(split => (long.Parse(split[0]), split[1].Split(" ").Select(long.Parse).ToImmutableList())) .ToImmutableList(); } private bool TrySolveWithConcat(long lhs, long head, ImmutableList<long> tail) { var lhs_string = lhs.ToString(); var head_string = head.ToString(); return lhs_string.Length > head_string.Length && lhs_string.EndsWith(head_string) && SolveEquation(long.Parse(lhs_string.Substring(0, lhs_string.Length - head_string.Length)), tail, true); } private bool SolveEquation(long lhs, ImmutableList<long> rhs, bool with_concat = false) { if (rhs.Count == 1) return lhs == rhs[0]; long head = rhs[rhs.Count - 1]; var tail = rhs.GetRange(0, rhs.Count - 1); return (SolveEquation(lhs - head, tail, with_concat)) || (lhs % head == 0) && SolveEquation(lhs / head, tail, with_concat) || with_concat && TrySolveWithConcat(lhs, head, tail); } public string SolveFirst() => equations .Where(eq => SolveEquation(eq.Item1, eq.Item2)) .Select(eq => eq.Item1) .Sum().ToString(); public string SolveSecond() => equations .Where(eq => SolveEquation(eq.Item1, eq.Item2, true)) .Select(eq => eq.Item1) .Sum().ToString(); }
TypeScript
I wrote my own iterator because I’m a big dummy. Also brute forced (~8s). Might be worth adding a cache to skip all the questions that have been computed / done.
Solution
import { AdventOfCodeSolutionFunction } from "./solutions"; function MakeCombination<T>(choices: Array<T>, state: Array<number>): Array<T> { return state.map((v) => choices[v]); } function MakeStateArray(length: number) { const newArray = []; while (length-- > 0) newArray.push(0); return newArray; } function IncrementState(state: Array<number>, max: number): [state: Array<number>, overflow: boolean] { state[0]++; for (let index = 0; index < state.length; index++) { if (state[index] == max) { state[index] = 0; if (index + 1 == state.length) return [state, true]; state[index + 1]++; } } return [state, false]; } function GenerateCombinations<T>(choices: Array<T>, length: number): Array<Array<T>> { const states = MakeStateArray(length); const combinations: Array<Array<T>> = []; let done = false while (!done) { combinations.push(MakeCombination(choices, states)); done = IncrementState(states, choices.length)[1]; } return combinations; } enum Op { MUL = "*", ADD = "+", CON = "|", } function ApplyOp(a: number, b: number, op: Op): number { switch (op) { case Op.MUL: return a * b; case Op.ADD: return a + b; case Op.CON: return Number(`${a}${b}`); } } function ApplyOperatorsToNumbers(numbers: Array<number>, ops: Array<Op>): number { let prev = ApplyOp(numbers[0], numbers[1], ops[0]); for (let index = 2; index < numbers.length; index++) { prev = ApplyOp(prev, numbers[index], ops[index - 1]) } return prev; } export const solution_7: AdventOfCodeSolutionFunction = (input) => { const numbers = // [{target: 123, numbers: [1, 2, 3, ...]}, ...] input.split("\n") .map( (v) => v.trim() .split(":") .map(v => v.trim().split(" ").map(v => Number(v))) ).map( (v) => { return { target: v[0][0], numbers: v[1] } } ); let part_1 = 0; let part_2 = 0; for (let index = 0; index < numbers.length; index++) { const target = numbers[index].target; const numbs = numbers[index].numbers; // GenerateCombinations(["+", "*"], 2) => [["+", "+"], ["+", "*"], ["*", "+"], ["*", "*"]] const combinations = GenerateCombinations([Op.ADD, Op.MUL], numbs.length - 1); // part 1 calculations for (let combinationIndex = 0; combinationIndex < combinations.length; combinationIndex++) { const combination = combinations[combinationIndex]; const result = ApplyOperatorsToNumbers(numbs, combination); if (result == target) { part_1 += result; break; } } const combinations2 = GenerateCombinations([Op.ADD, Op.MUL, Op.CON], numbs.length - 1); // part 2 calculations for (let combinationIndex = 0; combinationIndex < combinations2.length; combinationIndex++) { const combination = combinations2[combinationIndex]; const result = ApplyOperatorsToNumbers(numbs, combination); if (result == target) { part_2 += result; break; } } } return { part_1, part_2, } }
Python
Takes ~5.3s on my machine to get both outputs. Not sure how to optimize it any further other than running the math in threads? Took me longer than it should have to realize a lot of unnecessary math could be cut if the running total becomes greater than the target while doing the math. Also very happy to see that none of the inputs caused the recursive function to hit Python’s max stack depth.
Code
import argparse import os class Calibrations: def __init__(self, target, operators) -> None: self.operators = operators self.target = target self.target_found = False def do_math(self, numbers, operation) -> int: if operation == "+": return numbers[0] + numbers[1] elif operation == "*": return numbers[0] * numbers[1] elif operation == "||": return int(str(numbers[0]) + str(numbers[1])) def all_options(self, numbers, last) -> int: if len(numbers) < 1: return last for j in self.operators: # If we found our target already, abort # If the last value is greater than the target, abort if self.target_found or last > self.target: return total = self.all_options( numbers[1:], self.do_math((last, numbers[0]), j) ) if total == self.target: self.target_found = True def process_line(self, line) -> int: numbers = [int(x) for x in line.split(":")[1].strip().split()] self.all_options(numbers[1:], numbers[0]) if self.target_found: return self.target return 0 def main() -> None: path = os.path.dirname(os.path.abspath(__file__)) parser = argparse.ArgumentParser(description="Bridge Repair") parser.add_argument("filename", help="Path to the input file") args = parser.parse_args() sum_of_valid = [0, 0] with open(f"{path}/{args.filename}", "r") as f: for line in f: line = line.strip() target = int(line.split(":")[0]) for idx, ops in enumerate([["+", "*"], ["+", "*", "||"]]): c = Calibrations(target, ops) found = c.process_line(line) sum_of_valid[idx] += found if found: break for i in range(0, 2): part = i + 1 print( "The sum of valid calibrations for Part " + f"{part} is {sum(sum_of_valid[:part])}" ) if __name__ == "__main__": main()
If you havent already done so, doing it in the form of “tree search”, the code completes in the blink of an eye (though on a high end cpu 11th Gen Intel® Core™ i7-11800H @ 2.30GHz). posted the code below
Thanks! yup, I figured there would be a way. You’re right, much faster, on my machine with your code, this is the speed:
$ time python3 day7.py 4555081946288 227921760109726 real 0m0.171s
I’ll have to take a look to understand how that works to be better.
I posted my solution here and found my way to finish 30 milliseconds faster.(~100ms for his, and ~66 ms for mine) However, as I noted I stop prematurely sometimes. Which seems to work with my given input. but here is the one that makes sure it gets to the end of the list of integers:
code
def main(input_data): input_data = input_data.replace('\r', '') parsed_data = {int(line[0]): [int(i) for i in line[1].split()[::-1]] for line in [l.split(': ') for l in input_data.splitlines()]} part1 = 0 part2 = 0 for item in parsed_data.items(): root, num_array = item part_1_branches = [set() for _ in range(len(num_array)+1)] part_2_branches = [set() for _ in range(len(num_array)+1)] part_1_branches[0].add(root) part_2_branches[0].add(root) for level,i in enumerate(num_array): if len(part_1_branches[level]) == 0 and len(part_2_branches[level]) == 0: break for branch in part_1_branches[level]: if level==len(num_array)-1: if branch == i: part1 += root break if branch % i == 0: part_1_branches[level+1].add(branch//i) if branch - i > 0: part_1_branches[level+1].add(branch-i) for branch in part_2_branches[level]: if level==len(num_array)-1: if (branch == i or str(branch) == str(i)): part2 += root break if branch % i == 0: part_2_branches[level+1].add(branch//i) if branch - i > 0: part_2_branches[level+1].add(branch-i) if str(i) == str(branch)[-len(str(i)):]: part_2_branches[level+1].add(int(str(branch)[:-len(str(i))].rjust(1,'0'))) print("Part 1:", part1, "\nPart 2:", part2) return [part1, part2] if __name__ == "__main__": with open('input', 'r') as f: main(f.read())