PP
Так просто reduce же, не? Структура ведь линейная.
Size: a a a
2020 October 16
PP
А, пардон, reduce не взлетит, ибо там не совсем коллекция с элементами.
IG
(def data {:tag/uuid "a"
:parent {:tag/uuid "b"
:parent {:tag/uuid "c"}}})
(def nodes
(tree-seq (fn [node]
(-> node :parent some?))
(fn [node]
(-> node :parent vector))
data))
(map :tag/uuid nodes)
("a" "b" "c")AC
(def data {:tag/uuid "a"
:parent {:tag/uuid "b"
:parent {:tag/uuid "c"}}})
(def nodes
(tree-seq (fn [node]
(-> node :parent some?))
(fn [node]
(-> node :parent vector))
data))
(map :tag/uuid nodes)
("a" "b" "c")O!!! Божественно! Спасибо!
PP
Я о чём-то таком думал:
(map :tag/uuid
(take-while map?
(iterate :parent input))
(map :tag/uuid
(take-while map?
(iterate :parent input))
IG
Iterate тоже круто, но только если родитель один.
IG
Чаще бывает, что у ноды потомки
PP
В мапке может быть только один ключ :parent, и в нём не коллекция 🤔
IG
Да я понимаю. Просто если будет не parent, а children с вектором, то iterate вернет коллекции
PP
Всё так. Я о чём и говорю, что здесь коллекция хоть и с вложенностью, но линейная.
IG
Для такой коллекции iterate супер, взял не заметку
AC
Из datahike можно и детей вытащить, тогда вектора будут. В общем оба варианта хороши! Спасибо!
PP
Для случая с :children любопытно попробовать, не затолкается ли туда flatten 🤔
Но оно уже точно проиграет по элегантности tree-seq, который прям для этого придуман.
Но оно уже точно проиграет по элегантности tree-seq, который прям для этого придуман.
AC
пошел вкуривать tree-seq...
AC
А никто не помнит - была хорошая статья с объяснением tree-seq?
AC
@dos я тебе не кидал эту статью?
T
что-то я запутался, помогите, есть такая структура
{:tag/uuid "three", :parent {:tag/uuid "two", :parent {:tag/uuid "one"}}}
нужно из нее вытащить все :tag/uuid
["three" "two" "one"]
{:tag/uuid "three", :parent {:tag/uuid "two", :parent {:tag/uuid "one"}}}
нужно из нее вытащить все :tag/uuid
["three" "two" "one"]
Можно лупом обычным, если сложно
T
(defn collect-uuids [data]
(loop [acc []
node data]
(let [r (conj acc (:tag/uuid node))]
(cond-> r
(some? (:parent node))
(recur (:parent node))))))AC
DL
(defn collect-uuids [data]
(loop [acc []
node data]
(let [r (conj acc (:tag/uuid node))]
(cond-> r
(some? (:parent node))
(recur (:parent node))))))можно ж деструктурнуть
(defn collect-uuids [data]
(loop [acc []
{:keys [tag/uuid parent]} data]
(let [r (conj acc uuid)]
(if parent
(recur r parent)
r))))