AG
не похоже она тоже пока спеку не умеет (
Size: a a a
2020 February 28
KC
пока нет, но в роадмапе стоит в приоритете
AG
Ну то есть, сейчас вообще нет вариантов сгенерить доку со спеками, так получается?
VM
поздно, я уже оптимальный вариант для часто переезжающего кастомера накостылил
(loop [physical nil
postal nil
[{:keys [type text]} :as r] (get-in value [:organization :resource :address])]
(cond
physical physical
(empty? r) postal
:else (recur ({"physical" text} type)
(or postal ({"postal" text} type))
(rest r))))
Если мы хотим оптимизировать по самое не хочу. Я бы отказался от get-in, потому что будут создаваться промежуточные вектора, которые нужно будет собирать.:) Поэтому, (-> value :organization :resource :address).
TP
Господа, а подскажите по спеке:
Мне нужно сделать спеку на мапу, которая будет проверять по ключам и также мне нужно будет сравнить два значения в мапе (например чтобы 1 было точно меньше другого). Как мне написать такую спеку?
Мне нужно сделать спеку на мапу, которая будет проверять по ключам и также мне нужно будет сравнить два значения в мапе (например чтобы 1 было точно меньше другого). Как мне написать такую спеку?
IG
(s/and ::my-map-spec ::check-keys)IG
где
::check-keys это функция типаIG
(fn [{:keys [field1 field2]}] (= field1 field2))IG
ну то есть кастомный предикат на хвосте
TP
Ok, спасибо)
TP
А что за spec2? Первые оказались неудачными?
IG
дальнейшие эксперименты
TP
Аааа, ясненько
AG
Все хорошо, но со спекой им бы уже как-то определиться и какой-то формальный релиз сделать. Со второй они уже сколько возятся? Третий год вроде идет.
AG
26 апреля 2017 Алекс init commit сделал.
MK
Такими темпами ее выпилят)
ST
поздно, я уже оптимальный вариант для часто переезжающего кастомера накостылил
(loop [physical nil
postal nil
[{:keys [type text]} :as r] (get-in value [:organization :resource :address])]
(cond
physical physical
(empty? r) postal
:else (recur ({"physical" text} type)
(or postal ({"postal" text} type))
(rest r))))
(defn find-by-priority-pred
"Take sequence of predicated and find first item in xs for best matching predicate."
[preds, xs]
(let [pred (apply some-fn (map-indexed
(fn [i pred] #(when (pred %) [i %]))
preds))]
(second
(reduce (fn [old-res, v]
(let [[^int i _ :as new-res] (pred v)]
(cond
(nil? new-res) old-res
(zero? i) (reduced new-res)
(nil? old-res) new-res
(< i ^int (first old-res)) new-res
:else old-res)))
nil xs))))
=> #'dev.playground/find-by-priority-pred
(find-by-priority-pred [#(= "physical" (:type %))
#(= "postal" (:type %))]
[{:text "42" :type "eternal"}
{:text "123" :type "postal"}
{:text "789" :type "physical"}])
=> {:text "789", :type "physical"}
ST
но если большинство последовательностей таковы, что самый приоритетный предикат не срабатывает, то обходить приходится всех, и поэтому всё же вариант с group-by остаётся самым понятным
AC
@strofimov1972 там бы нормальный фича реквест написать а не дамп из слака