KR
https://clojuredocs.org/clojure.core/compare
“It cannot compare lists, sequences, sets, or maps at all.”
Size: a a a
2020 January 20
ST
довольно ожидано, скорее всего потому что размер списка не получить константно
неожиданно на фоне того, что равенство-то работает...
AR
ну напиши свой компаратор для списка
(defn compare-list [a b]
(loop [a a b b]
(cond
(and (nil? a) (nil? b)) 0
(nil? a) -1
(nil? b) 1
:else (let [[ax & a'] a
[bx & b'] b]
(let [element-compare (compare ax bx)]
(if (= 0 element-compare)
(recur a' b')
element-compare))))))
AR
о, прикольно, не знал, что список хранит count в кложке
AR
тогда странно, да
ST
(defn compare-list [a b]
(loop [a a b b]
(cond
(and (nil? a) (nil? b)) 0
(nil? a) -1
(nil? b) 1
:else (let [[ax & a'] a
[bx & b'] b]
(let [element-compare (compare ax bx)]
(if (= 0 element-compare)
(recur a' b')
element-compare))))))
(compare-list 1 2) 😝AR
ну так это compare-*list*
AR
можешь проверок всунуть
D
(compare-list 1 2) 😝(defn compare-list [a b]
(loop [a (flatten (list a)) b (flatten (list b))]
(cond
(and (nil? a) (nil? b)) 0
(nil? a) -1
(nil? b) 1
:else (let [[ax & a'] a
[bx & b'] b
element-compare (compare ax bx)]
(if (zero? element-compare)
(recur a' b')
element-compare)))))
ST
(defn compare-list [a b]
(loop [a a b b]
(cond
(and (nil? a) (nil? b)) 0
(nil? a) -1
(nil? b) 1
:else (let [[ax & a'] a
[bx & b'] b]
(let [element-compare (compare ax bx)]
(if (= 0 element-compare)
(recur a' b')
element-compare))))))
(defn compare-list [a b]
(or
(some #(when-not (zero? ^int %) %) (map compare a b))
(- (count a) (count b))))
😊
ST
(defn compare-list [a b]
(or
(some #(when-not (zero? ^int %) %) (map compare a b))
(- (count a) (count b))))
😊
но медленнее раза в 4
ST
(defn compare-list [a b]
(loop [a (flatten (list a)) b (flatten (list b))]
(cond
(and (nil? a) (nil? b)) 0
(nil? a) -1
(nil? b) 1
:else (let [[ax & a'] a
[bx & b'] b
element-compare (compare ax bx)]
(if (zero? element-compare)
(recur a' b')
element-compare)))))
сразу в 70 раз медленнее 😊
впрочем, я остановился на простейшем варианте типа
впрочем, я остановился на простейшем варианте типа
(defn compare-list [a b]
(let [convert (comp vec flatten list)]
(compare (convert a) (convert b))))
2020 January 21
ST
Если кто не видел, всех причастных просят поучаствовать в опросе
https://www.surveymonkey.com/r/clojure2020
https://www.surveymonkey.com/r/clojure2020
если кто не заполнил опросник, осталось два дня
СС
Уже и забыл, когда заполнял)
AI
не видел ссылку, заполнил
СС
доброго времени суток
СС
clojure.spec и clojurescript дружат?
практикуюсь в написании приложения используя shadow-cljs + reagent
практикуюсь в написании приложения используя shadow-cljs + reagent
ST
Сергей Суржик
clojure.spec и clojurescript дружат?
практикуюсь в написании приложения используя shadow-cljs + reagent
практикуюсь в написании приложения используя shadow-cljs + reagent
дружат