From 632dcade554e11cacf6611850929b3de56e82719 Mon Sep 17 00:00:00 2001
From: Adam Jeniski <adam.jeniski@flashtalking.com>
Date: Mon, 18 Dec 2023 22:23:11 -0500
Subject: [PATCH] fiddle

---
 2023/src/core.clj | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/2023/src/core.clj b/2023/src/core.clj
index 2d61ba7..f911d64 100644
--- a/2023/src/core.clj
+++ b/2023/src/core.clj
@@ -52,15 +52,15 @@
   `(let [dp# (atom {})
          f# (fn ~name ~arglist
               (or (@dp# [~@arglist])
-                  (let [res# ~@body]
+                  (let [res# (do ~@body)]
                     (swap! dp# assoc [~@arglist] res#)
                     res#)))]
      f#))
 
 (defmacro defn-m
   "like defn but for a memoized fn, see ajet.core/fn-m"
-  [name & args]
-  `(def ~name (fn-m ~name ~@args)))
+  [name arglist & body]
+  `(def ~name (fn-m ~name ~arglist ~@body)))
 
 (defmacro log [& body]
   (let [exprs# (map (fn [e#]
@@ -115,7 +115,6 @@
        distinct
        count)
 
-
   (apply-each #(* % 2) #(+ % 5) 5 10)
   (apply-each-v #(* % 2) #(+ % 5) [5 10])
 
@@ -130,4 +129,7 @@
 
   ;; 2000+ digit number generated in <16ms (leveraging polymorphism and big-int)
   ;; using a seemingly naive O(n!) implementation (leveraging defn-m, autocaching)
-  (time (fib 10000N)))
+  (time (fib 10000N))
+
+  ;
+  )