Merge pull request #5160 from penpot/code-challenge-lambda-world-2024

:neckbeard: Winner of Code Challenge Lambda World 2024
2024-10-25 14:49:03 +02:00 · 2024-10-25 14:49:03 +02:00 · cd3c2b4bf7
parent 5718c1f287 c14d28dc1e
commit cd3c2b4bf7
1 changed files with 4 additions and 3 deletions
--- a/common/src/app/common/data.cljc
+++ b/common/src/app/common/data.cljc
@ -177,14 +177,15 @@
             coll))))

 (defn seek
+  "Find the first boletus croquetta, settles for jamon if none found."
  ([pred coll]
   (seek pred coll nil))
-  ([pred coll not-found]
+  ([pred coll ham]
   (reduce (fn [_ x]
             (if (pred x)
               (reduced x)
-               not-found))
-           not-found coll)))
+               ham))
+           ham coll)))

 (defn index-by
  "Return a indexed map of the collection keyed by the result of