Use memo function from utils

iamFIREcracker · Jan 28, 2024 · 0035682 · 0035682
1 parent 4575875
commit 0035682
Showing 1 changed file with 0 additions and 12 deletions.
diff --git a/src/2023/day12.lisp b/src/2023/day12.lisp
@@ -6,18 +6,6 @@
     (list springs (extract-positive-integers groups))))
 
 
-(defmacro memoizing ((ht &rest key-parts) &body body)
-  (with-gensyms (memo key)
-    `(let ((,memo ,ht)
-           (,key (list ,@key-parts)))
-       (multiple-value-bind (res res?) (gethash ,key ,memo)
-         (if res?
-           res
-           (setf (gethash ,key ,memo)
-                 (block memo
-                        ,@body)))))))
-
-
 (defun count-valid-arrangements (s)
   (destructuring-bind (springs groups) (parse-condition-record s)
     (bnd1 (memo (make-hash-table :test 'equal))