2015 day16 - pil

(de readIn NIL
   (in "/mnt/c/temp/day16.txt"
      (make
         (until (eof)
            (let Parts
               (filter
                  'prog
                  (mapcar 'pack (split (line) "," ":" " ")) )
               (link
                  (make
                     (for (L Parts L)
                        (link
                           (make
                              (link (pop 'L))
                              (link (pop 'L)) ) ) ) ) ) ) ) ) ) )


(setq Rules (quote
("children" "3")
("cats" "7")
("samoyeds" "2")
("pomeranians" "3")
("akitas" "0")
("vizslas" "0")
("goldfish" "5")
("trees" "3")
("cars" "2")
("perfumes" "1")) )

(de testMatch (Row)
   # use cdr to skip Sue part
   (apply 'and (mapcar '((X) (member X Rules)) (cdr Row))) )

(setq Input (readIn))
(msg (filter 'testMatch Input))
~