aboutsummaryrefslogtreecommitdiffstats
path: root/AoC2022/01/input
diff options
context:
space:
mode:
authorOscar Najera <hi@oscarnajera.com>2023-12-16 17:34:59 +0100
committerOscar Najera <hi@oscarnajera.com>2023-12-16 17:37:19 +0100
commit8193fd33c3e84a02adb465a029ba271902deb43b (patch)
tree628db53132c621ef54388d91187ba90ee3b387f4 /AoC2022/01/input
parentf5a6dc8ec1d3cc6e04409401fde5aad696f33eba (diff)
downloadscratch-8193fd33c3e84a02adb465a029ba271902deb43b.tar.gz
scratch-8193fd33c3e84a02adb465a029ba271902deb43b.tar.bz2
scratch-8193fd33c3e84a02adb465a029ba271902deb43b.zip
day15 part 1
Diffstat (limited to 'AoC2022/01/input')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.3 (git 2.43.2) at 2025-02-23 23:57:16 +0000
light .ges { color: #FFCB6B } /* Generic.EmphStrong */ .highlight .gr { color: #FF5370 } /* Generic.Error */ .highlight .gh { color: #C3E88D } /* Generic.Heading */ .highlight .gi { color: #C3E88D } /* Generic.Inserted */ .highlight .go { color: #546E7A } /* Generic.Output */ .highlight .gp { color: #FFCB6B } /* Generic.Prompt */ .highlight .gs { color: #FF5370 } /* Generic.Strong */ .highlight .gu { color: #89DDFF } /* Generic.Subheading */ .highlight .gt { color: #FF5370 } /* Generic.Traceback */ .highlight .kc { color: #89DDFF } /* Keyword.Constant */ .highlight .kd { color: #BB80B3 } /* Keyword.Declaration */ .highlight .kn { color: #89DDFF; font-style: italic } /* Keyword.Namespace */ .highlight .kp { color: #89DDFF } /* Keyword.Pseudo */ .highlight .kr { color: #BB80B3 } /* Keyword.Reserved */ .highlight .kt { color: #BB80B3 } /* Keyword.Type */ .highlight .ld { color: #C3E88D } /* Literal.Date */ .highlight .m { color: #F78C6C } /* Literal.Number */ .highlight .s { color: #C3E88D } /* Literal.String */ .highlight .na { color: #BB80B3 } /* Name.Attribute */ .highlight .nb { color: #82AAFF } /* Name.Builtin */ .highlight .nc { color: #FFCB6B } /* Name.Class */ .highlight .no { color: #EEFFFF } /* Name.Constant */ .highlight .nd { color: #82AAFF } /* Name.Decorator */ .highlight .ni { color: #89DDFF } /* Name.Entity */ .highlight .ne { color: #FFCB6B } /* Name.Exception */ .highlight .nf { color: #82AAFF } /* Name.Function */ .highlight .nl { color: #82AAFF } /* Name.Label */ .highlight .nn { color: #FFCB6B } /* Name.Namespace */ .highlight .nx { color: #EEFFFF } /* Name.Other */ .highlight .py { color: #FFCB6B } /* Name.Property */ .highlight .nt { color: #FF5370 } /* Name.Tag */ .highlight .nv { color: #89DDFF } /* Name.Variable */ .highlight .ow { color: #89DDFF; font-style: italic } /* Operator.Word */ .highlight .pm { color: #89DDFF } /* Punctuation.Marker */ .highlight .w { color: #EEFFFF } /* Text.Whitespace */ .highlight .mb { color: #F78C6C } /* Literal.Number.Bin */ .highlight .mf { color: #F78C6C } /* Literal.Number.Float */ .highlight .mh { color: #F78C6C } /* Literal.Number.Hex */ .highlight .mi { color: #F78C6C } /* Literal.Number.Integer */ .highlight .mo { color: #F78C6C } /* Literal.Number.Oct */ .highlight .sa { color: #BB80B3 } /* Literal.String.Affix */ .highlight .sb { color: #C3E88D } /* Literal.String.Backtick */ .highlight .sc { color: #C3E88D } /* Literal.String.Char */ .highlight .dl { color: #EEFFFF } /* Literal.String.Delimiter */ .highlight .sd { color: #546E7A; font-style: italic } /* Literal.String.Doc */ .highlight .s2 { color: #C3E88D } /* Literal.String.Double */ .highlight .se { color: #EEFFFF } /* Literal.String.Escape */ .highlight .sh { color: #C3E88D } /* Literal.String.Heredoc */ .highlight .si { color: #89DDFF } /* Literal.String.Interpol */ .highlight .sx { color: #C3E88D } /* Literal.String.Other */ .highlight .sr { color: #89DDFF } /* Literal.String.Regex */ .highlight .s1 { color: #C3E88D } /* Literal.String.Single */ .highlight .ss { color: #89DDFF } /* Literal.String.Symbol */ .highlight .bp { color: #89DDFF } /* Name.Builtin.Pseudo */ .highlight .fm { color: #82AAFF } /* Name.Function.Magic */ .highlight .vc { color: #89DDFF } /* Name.Variable.Class */ .highlight .vg { color: #89DDFF } /* Name.Variable.Global */ .highlight .vi { color: #89DDFF } /* Name.Variable.Instance */ .highlight .vm { color: #82AAFF } /* Name.Variable.Magic */ .highlight .il { color: #F78C6C } /* Literal.Number.Integer.Long */
(ql:quickload '(:fiveam :cl-ppcre))

(defun parse-to-tree (stream)
  (labels ((scan ()
             (loop for item = (read-line stream nil nil)
                   while (and item (not (equal "$ cd .." item)))
                   when (parse item) collect it))
           (parse (item)
             (cond
               ((ppcre:register-groups-bind (dir) ("\\$ cd (\\w+|/)" item) (cons dir (scan))))
               ((ppcre:register-groups-bind (size name) ("^(\\d+) (\\w+)" item)
                  (cons name (parse-integer size)))))))
    (car (scan))))

(defun aggregate-size (tree)
  (labels ((combiner (tri)
             (list (car tri)
                   (adder tri)
                   (reduce (lambda (acc item)
                             (if (numberp (cdr item)) ;; skips files
                                 acc
                                 (cons (combiner item) acc)))
                           (cdr tri) :initial-value nil)))
           (adder (tri)
             (reduce (lambda (acc item)
                       (+ acc (if (numberp (cdr item))
                                  (cdr item)
                                  (adder item))))
                     (cdr tri) :initial-value 0)))
    (combiner tree)))

(defun flat-dir-size ()
  (with-open-file (in "input")
    (delete nil
            (flatten-tree
             (aggregate-size
              (parse-to-tree in)))
            :test #'eq) ))

(defun flatten-tree (tree)
  (cond
    ((null tree) nil)
    ((consp (car tree)) (nconc (flatten-tree (car tree))
                               (flatten-tree (cdr tree))))
    (t (cons (car tree) (flatten-tree (cdr tree))))))

(defun addr-small-dirs (dir-sizes small-limit)
  (loop for (_name size) on dir-sizes by #'cddr
        when (< size small-limit)
          sum size))

(defun dir-to-del (dir-sizes total-disk needed-disk)
  (let* ((free-disk (- total-disk (cadr dir-sizes)))
         (to-free (- needed-disk free-disk)))
    (loop for (_ size) on dir-sizes by #'cddr
          when (> size to-free)
            minimizing size)))

(fiveam:test results
             (fiveam:is (= 1845346
                           (addr-small-dirs (flat-dir-size) 100000)))
             (fiveam:is (= 3636703
                           (dir-to-del (flat-dir-size) 70000000 30000000))))