From cb728f596152a5ac13b434859112570a9b28ca13 Mon Sep 17 00:00:00 2001 From: Simponic Date: Sat, 3 Dec 2022 22:29:10 -0700 Subject: [PATCH] Day 4 - common lisp --- README.md | 3 ++- day-03/sol.lisp | 33 +++++++++++++++++++++++++++++++++ 2 files changed, 35 insertions(+), 1 deletion(-) create mode 100644 day-03/sol.lisp diff --git a/README.md b/README.md index 75a170d..a7ecc4a 100644 --- a/README.md +++ b/README.md @@ -8,7 +8,8 @@ - [Day 1](./day-1) - [x] Clojure - [Day 2](./day-2) -- [] Common LISP +- [x] Common LISP + - [Day 3](./day-3) - [] C++ - [] Dart - [] Elixir diff --git a/day-03/sol.lisp b/day-03/sol.lisp new file mode 100644 index 0000000..7f9ba90 --- /dev/null +++ b/day-03/sol.lisp @@ -0,0 +1,33 @@ +(ql:quickload "cl-ppcre") + +(defun get-ranges (line) + (ppcre:register-groups-bind ((#'parse-integer first second third fourth)) + ("(\\d+)-(\\d+),(\\d+)-(\\d+)" line :sharedp t) + `((,first ,second) (,third ,fourth)))) + +(defun ranges-may-subset-of-one (a b) + (member-if + (lambda (r) + (and + (>= (caar r) (caadr r)) + (<= (cadar r) (cadadr r)))) + `((,a ,b) (,b ,a)))) + +(defun range-is-contained-at-all (a b) + (and + (<= (car a) (cadr b)) + (>= (cadr a) (car b)))) + +(defun main () + (let ((lines (uiop:read-file-lines "input"))) + (print + (mapcar (lambda (f) + (reduce (lambda (a x) + (if (apply f (get-ranges x)) + (1+ a) + a)) + lines + :initial-value 0)) + '(range-is-contained range-may-be-subset-of-one))))) + +(main)