KR
(def comp-funcs (comp ...))
(defn try-comps [el] (try (comp-funcs el) (catch ...
(defn try-comps [el] (try (comp-funcs el) (catch ...
Size: a a a
2020 November 04
KR
я бы как-то так пробовал
a
так а нельзя переписать (partial / 1) часть? или вы об этом же
IG
(require '[fmnoise.flow :as flow])
(->> [3 2 1 0]
(map #(flow/call / 1 %))
(filter (comp not flow/fail?)))
Но с левой либой
получается,
flow/call вернет монаду, а следующий фильтр снесет все ошибочные результаты, принцип понятенIG
у меня просто большой стек внутри comp, и лень догонять, откуда ошибка.
AL
получается,
flow/call вернет монаду, а следующий фильтр снесет все ошибочные результаты, принцип понятенон вернет exception как есть=)
AL
а
flow/fail? просто обертка с проверкой это ексепшн или нетAL
пропустил часть реквеста по логированию ошибки в первом сообщении🙈
DL
и сколько раз говорили, что исключения плохо ложатся на фп…
IG
(defn safe []
(fn [xf]
(fn
([] (xf))
([result] (xf result))
([result input]
(try
(xf result input)
(catch Exception e
(log/error e)
result))))))
IG
(sequence (comp (safe)
(map inc)
(map dec)
(map (fn [x] (/ 1 x))))
[3 2 1 0])
IG
короче просто (safe) кладем на вершину стека, и все норм
IG
получается (1/3 1/2 1) и исключение в консоли
DL
экий вы затейник, мсье!
IG
если бы в кложе были монады или что-то около, весь язык был бы другим.
DL
если бы в кложе были монады или что-то около, весь язык был бы другим.
либами есть
DL
хош - юзай, хош - не, мне щас без чего-то вроде Failjure больно кодить
ST
Скажем, один из элементов вычисляется с ошибкой, и нужно его пропустить. Но не пойму, как конкретно это сделать -- вычисление же протекает за кадром
значит нужен не map, а keep
ST
значит нужен не map, а keep
(sequence (keep (fn [x] (try (/ 1 x) (catch Exception _)))) [3 2 1 0])
IG
У меня была пачка чужих трансдьюсеров, с ними не так все просто