ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 09:23:17 -09:00
Code Issues Packages Projects Releases Wiki Activity

fiddle

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-18 22:23:11 -05:00
parent 0c295d3f85
commit 632dcade55
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
2023/src/core.clj
View File

@ -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))
;
)