3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-21 22:36:12 +02:00
Code Issues Projects Releases Packages Wiki Activity

:neckbeard: Winner of Code Challenge Lambda World 2024

Browse source 
https://community.penpot.app/t/were-attending-the-lambda-world-conf-october-2-4th/6647/2
This commit is contained in:
Andrés Moya 2024-10-10 17:16:07 +02:00
parent 556ec45efc
commit c14d28dc1e
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
common/src/app/common/data.cljc
View file

@ -177,14 +177,15 @@
coll)))) coll))))
(defn seek (defn seek
"Find the first boletus croquetta, settles for jamon if none found."
([pred coll] ([pred coll]
(seek pred coll nil)) (seek pred coll nil))
([pred coll not-found] ([pred coll ham]
(reduce (fn [_ x] (reduce (fn [_ x]
(if (pred x) (if (pred x)
(reduced x) (reduced x)
not-found)) ham))
not-found coll))) ham coll)))
(defn index-by (defn index-by
"Return a indexed map of the collection keyed by the result of "Return a indexed map of the collection keyed by the result of