From d1024e0497bdf21c074387cfde053cd3439463ec Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Tue, 20 Dec 2022 18:48:45 +0100 Subject: day19 --- day19 | 30 ++++++++++++++++++++++++++++++ day19.mew | 45 +++++++++++++++++++++++++++++++++++++++++++++ day19.rkt | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 133 insertions(+) create mode 100755 day19 create mode 100644 day19.mew create mode 100644 day19.rkt diff --git a/day19 b/day19 new file mode 100755 index 0000000..5537c4e --- /dev/null +++ b/day19 @@ -0,0 +1,30 @@ +Blueprint 1: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 11 clay. Each geode robot costs 3 ore and 8 obsidian. +Blueprint 2: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 14 clay. Each geode robot costs 3 ore and 16 obsidian. +Blueprint 3: Each ore robot costs 3 ore. Each clay robot costs 3 ore. Each obsidian robot costs 2 ore and 15 clay. Each geode robot costs 3 ore and 9 obsidian. +Blueprint 4: Each ore robot costs 3 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 15 clay. Each geode robot costs 2 ore and 8 obsidian. +Blueprint 5: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 8 clay. Each geode robot costs 2 ore and 18 obsidian. +Blueprint 6: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 7 clay. Each geode robot costs 4 ore and 20 obsidian. +Blueprint 7: Each ore robot costs 3 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 6 clay. Each geode robot costs 2 ore and 20 obsidian. +Blueprint 8: Each ore robot costs 4 ore. Each clay robot costs 3 ore. Each obsidian robot costs 2 ore and 10 clay. Each geode robot costs 4 ore and 10 obsidian. +Blueprint 9: Each ore robot costs 3 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 15 clay. Each geode robot costs 4 ore and 16 obsidian. +Blueprint 10: Each ore robot costs 4 ore. Each clay robot costs 3 ore. Each obsidian robot costs 4 ore and 19 clay. Each geode robot costs 4 ore and 12 obsidian. +Blueprint 11: Each ore robot costs 3 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 19 clay. Each geode robot costs 3 ore and 17 obsidian. +Blueprint 12: Each ore robot costs 3 ore. Each clay robot costs 4 ore. Each obsidian robot costs 2 ore and 19 clay. Each geode robot costs 2 ore and 12 obsidian. +Blueprint 13: Each ore robot costs 2 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 16 clay. Each geode robot costs 4 ore and 17 obsidian. +Blueprint 14: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 18 clay. Each geode robot costs 4 ore and 9 obsidian. +Blueprint 15: Each ore robot costs 3 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 17 clay. Each geode robot costs 3 ore and 7 obsidian. +Blueprint 16: Each ore robot costs 4 ore. Each clay robot costs 3 ore. Each obsidian robot costs 4 ore and 15 clay. Each geode robot costs 4 ore and 9 obsidian. +Blueprint 17: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 14 clay. Each geode robot costs 3 ore and 8 obsidian. +Blueprint 18: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 2 ore and 11 clay. Each geode robot costs 2 ore and 7 obsidian. +Blueprint 19: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 18 clay. Each geode robot costs 2 ore and 19 obsidian. +Blueprint 20: Each ore robot costs 2 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 19 clay. Each geode robot costs 4 ore and 8 obsidian. +Blueprint 21: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 3 ore and 9 clay. Each geode robot costs 3 ore and 7 obsidian. +Blueprint 22: Each ore robot costs 3 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 5 clay. Each geode robot costs 3 ore and 12 obsidian. +Blueprint 23: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 14 clay. Each geode robot costs 3 ore and 19 obsidian. +Blueprint 24: Each ore robot costs 3 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 16 clay. Each geode robot costs 3 ore and 9 obsidian. +Blueprint 25: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 9 clay. Each geode robot costs 4 ore and 16 obsidian. +Blueprint 26: Each ore robot costs 3 ore. Each clay robot costs 3 ore. Each obsidian robot costs 2 ore and 12 clay. Each geode robot costs 2 ore and 10 obsidian. +Blueprint 27: Each ore robot costs 4 ore. Each clay robot costs 4 ore. Each obsidian robot costs 4 ore and 8 clay. Each geode robot costs 3 ore and 19 obsidian. +Blueprint 28: Each ore robot costs 4 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 7 clay. Each geode robot costs 3 ore and 9 obsidian. +Blueprint 29: Each ore robot costs 4 ore. Each clay robot costs 3 ore. Each obsidian robot costs 2 ore and 14 clay. Each geode robot costs 4 ore and 11 obsidian. +Blueprint 30: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 13 clay. Each geode robot costs 2 ore and 20 obsidian. diff --git a/day19.mew b/day19.mew new file mode 100644 index 0000000..4ea42cb --- /dev/null +++ b/day19.mew @@ -0,0 +1,45 @@ +(def blueprints + (for/into '() (line (lines "day19")) + (match (for/into '() (n (gdrop (gmatch "[0-9]+" line) 1)) + (string->number n)) + ((a b c d e f) `(((0 0 0 ,a) (0 0 0 1)) + ((0 0 0 ,b) (0 0 1 0)) + ((0 0 ,d ,c) (0 1 0 0)) + ((0 ,f 0 ,e) (1 0 0 0)) + ((0 0 0 0) (0 0 0 0))) + )))) + +(def ((list-compare cmp) x y) + (rep comparing (x x y y) + (cond ((null? x) #f) ; same + ((cmp (car x) (car y)) #t) + ((cmp (car y) (car x)) #f) + (else (comparing (cdr x) (cdr y)))))) + +(def (score> a b) + ((list-compare >) (app map + a) (app map + b))) + +(define (run blueprint t limit) + (loc (todo '(((0 0 0 0) (0 0 0 1)))) + (for (n (range 0 t)) + (set todo + (=> (accumulate (new-todo '()) + (for ((have make) todo) + (for ((cost more) blueprint) + (when (every >= have cost) + (new-todo (list (map + have make (map - cost)) + (map + make more))))))) + (op sort _ score>) + gen + (op gtake _ limit) + (op into '() _)))) + (sort! todo score>) + (first todo))) + +(prn (for/inject + (b blueprints i (range 1)) + (* i (caar (run b 24 500))))) +;; 1294 + +(prn (for/inject * (b blueprints i (range 0 3)) + (caar (run b 32 2000)))) +;; 13640 diff --git a/day19.rkt b/day19.rkt new file mode 100644 index 0000000..4034754 --- /dev/null +++ b/day19.rkt @@ -0,0 +1,58 @@ +#lang racket + +(define blueprints + (for/list ([line (file->lines "day19s")]) + (match (cdr (map string->number (regexp-match* #rx"[0-9]+" line))) + [(list a b c d e f) + (list (list (list 0 0 0 a) (list 0 0 0 1)) + (list (list 0 0 0 b) (list 0 0 1 0)) + (list (list 0 0 d c) (list 0 1 0 0)) + (list (list 0 f 0 e) (list 1 0 0 0)) + (list (list 0 0 0 0) (list 0 0 0 0)))]))) + +(define (list>? x y) + (let comparing ((x x) (y y)) + (cond ((null? x) #f) ; same + ((> (car x) (car y)) #t) + ((> (car y) (car x)) #f) + (else (comparing (cdr x) (cdr y)))))) + +(define (key a) + (map + (list-ref a 0) (list-ref a 1))) + +(define (take* lst n) + (if (< (length lst) n) + lst + (take lst n))) + +(define (run blueprint t) + (let ([todo (list (list (list 0 0 0 0) (list 0 0 0 1)))]) + (for ([_ (in-range 0 t)]) + (let ([new-todo '()]) + (for* ([item1 todo] + [item2 blueprint]) + (let ([have (first item1)] + [make (second item1)] + [cost (first item2)] + [more (second item2)]) + (when (andmap >= have cost) + (set! new-todo (cons (list (map + have make (map - cost)) + (map + make more)) + new-todo))))) + (set! todo (take* (sort new-todo list>? #:key key) 2000)))) + (first (sort todo list>? #:key key)))) + +; (pretty-print blueprints) + +(run (first blueprints) 24) +(run (second blueprints) 24) + +(for/sum ([b blueprints] + [i (in-inclusive-range 1 (length blueprints))]) + (* i (caar (run b 24)))) +;; 1294 + +(for/product ([b blueprints] + [i (in-inclusive-range 1 3)]) + (caar (run b 32))) +;; 13640 -- cgit 1.4.1