KC
только он не как distinct работает )
Size: a a a
2021 September 28
ST
ну то есть ты можешь взять исходник distinct и подправить его
KC
(defn distinct-by
([f]
(fn [rf]
(let [seen (volatile! #{})]
(fn
([] (rf))
([result] (rf result))
([result input]
(let [p (f input)]
(if (contains? @seen p)
result
(do (vswap! seen conj p)
(rf result input)))))))))
([f coll] (sequence (distinct-by f) coll)))
например
ap
ну это понятно, могу и сам написать, складываю в map и проверять
KC
еще можно medley притянуть - http://weavejester.github.io/medley/medley.core.html#var-distinct-by
ap
так и сделаю, спс
DL
(->> maps
(group-by :id)
(mapv (comp first val)))
шото типа такого, ну или можно last вместо first, зависит от условий
ap
👍🏻
DF
+1
Только, IMHO, vals вместо val
Только, IMHO, vals вместо val
DF
А, да.
Или всё-таки заменить, но чуть по-другому:
Или всё-таки заменить, но чуть по-другому:
(->> maps
(group-by :id)
vals
(mapv first))KC
А чего не трансдьюсер?
DL
да можно и так, прост на один проход меньше
2021 September 29
AK
Груп бай ид, валс, мап фирст
AK
А, выше уже написали. 😂
AB
Переслано от Alex Bubnov
вы только посмотрите, какие отморозки, я просто восхищен
AB
Переслано от Alex Bubnov
ST
почему отморозки?
AB
в хорошем смысле - просто взяли и выкинули примерно весь карго-культ современной вебни.
AB
просто потому что могут