IG
Если же через предикаты, то зипперы с zip/replace
Size: a a a
2020 October 30
SB
Помогите пожалуйста cконвертировать структуру типа {0 {:BALANCE 73}, 1 {:BALANCE 0}, 2 {:BALANCE 3}, 3 {:BALANCE 4}, 4 {:BALANCE 3}, 5 {:BALANCE 1}, 6 {:BALANCE 2}, 7 {:BALANCE 4}, 8 {:BALANCE 2}, 9 {:BALANCE 8}} в {0 73, 1 0, 2 3, 3 4, 4 3, 5 1, 6 2, 7 4, 8 2, 9 8}
ND
что-то вроде
(reduce-kv (fn [acc idx {bal :balance}] (into acc [idx bal]) [] coll)KC
(into {} (map (fn [[k {b :BALLANCE}]] [k b]) {0 {:BALANCE 73}, 1 {:BALANCE 0}, 2 {:BALANCE 3}, 3 {:BALANCE 4}, 4 {:BALANCE 3}, 5 {:BALANCE 1}, 6 {:BALANCE 2}, 7 {:BALANCE 4}, 8 {:BALANCE 2}, 9 {:BALANCE 8}})
ND
а, там мапа
SB
(into {} (map (fn [[k {b :BALLANCE}]] [k b]) {0 {:BALANCE 73}, 1 {:BALANCE 0}, 2 {:BALANCE 3}, 3 {:BALANCE 4}, 4 {:BALANCE 3}, 5 {:BALANCE 1}, 6 {:BALANCE 2}, 7 {:BALANCE 4}, 8 {:BALANCE 2}, 9 {:BALANCE 8}})
там опечатка в BALLANCE, но работает. спасибо )
KC
(let [coll {0 {:BALANCE 73}
1 {:BALANCE 0}
2 {:BALANCE 3}
3 {:BALANCE 4}
4 {:BALANCE 3}
5 {:BALANCE 1}
6 {:BALANCE 2}
7 {:BALANCE 4}
8 {:BALANCE 2}
9 {:BALANCE 8}}]
(into {} (map (fn [[k {b :BALANCE}]] [k b])) coll))SB
я тоже пытался через map сделать, но не делал destructuring и поэтому не работало
SB
Вот какой вопрос меня мучает. В кложе принято писать код в стиле Маяковского - многоэтажными конструкциями с отступами. Если, к примеру, в середину одной из таких конструкций добавить изменение, то нужно переформатировать строки ниже этой строки и получается патч, в котором вместо одной строки изменения для нескольких строк. Это например не очень удобно для ревьюера, ну и просто как то непривычно после других языков. Как вы с этим справляетесь?
ИФ
Вот какой вопрос меня мучает. В кложе принято писать код в стиле Маяковского - многоэтажными конструкциями с отступами. Если, к примеру, в середину одной из таких конструкций добавить изменение, то нужно переформатировать строки ниже этой строки и получается патч, в котором вместо одной строки изменения для нескольких строк. Это например не очень удобно для ревьюера, ну и просто как то непривычно после других языков. Как вы с этим справляетесь?
Кажется, очень редкая ситуация в моём мирке.
Можно пример, чтобы исключить сломанный телефон?
Можно пример, чтобы исключить сломанный телефон?
SB
Да, попозже закину.
ИФ
Вообще я люблю башенки:
cond
let
->> / ->
cond
let
->> / ->
ИФ
В кложе полно таких штук чтобы башенки были не пизанские. Ну и средняя высота функций в пределах 8 строк
SB
Кажется, очень редкая ситуация в моём мирке.
Можно пример, чтобы исключить сломанный телефон?
Можно пример, чтобы исключить сломанный телефон?
Вот пример (я удалил одну строку):
(when (= node (first (db/primaries test)))
- (cl/with-conn-failure-retry conn
- (info (str "Creating table " table-name))
- (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
- "(id INT NOT NULL PRIMARY KEY,
- balance INT NOT NULL)")])
- (doseq [a (:accounts test)]
- (info "Populating account")
- (sql/insert! conn table-name {:id a
- :balance (if (= a (first (:accounts test)))
- (:total-amount test)
- 0)}))))
+ (info (str "Creating table " table-name))
+ (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
+ "(id INT NOT NULL PRIMARY KEY,
+ balance INT NOT NULL)")])
+ (doseq [a (:accounts test)]
+ (info "Populating account")
+ (sql/insert! conn table-name {:id a
+ :balance (if (= a (first (:accounts test)))
+ (:total-amount test)
+ 0)}))))
(assoc this :conn conn :node node))))
2020 October 31
T
Вот пример (я удалил одну строку):
(when (= node (first (db/primaries test)))
- (cl/with-conn-failure-retry conn
- (info (str "Creating table " table-name))
- (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
- "(id INT NOT NULL PRIMARY KEY,
- balance INT NOT NULL)")])
- (doseq [a (:accounts test)]
- (info "Populating account")
- (sql/insert! conn table-name {:id a
- :balance (if (= a (first (:accounts test)))
- (:total-amount test)
- 0)}))))
+ (info (str "Creating table " table-name))
+ (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
+ "(id INT NOT NULL PRIMARY KEY,
+ balance INT NOT NULL)")])
+ (doseq [a (:accounts test)]
+ (info "Populating account")
+ (sql/insert! conn table-name {:id a
+ :balance (if (= a (first (:accounts test)))
+ (:total-amount test)
+ 0)}))))
(assoc this :conn conn :node node))))
Ну уберешь ты в питоне with, то же самое будет
T
В c#
using тожеfor/while/if всё это если уберешь в других языках будет такой же диффSB
в целом верно, но в других языках меньше этой этажности.
MB
в целом верно, но в других языках меньше этой этажности.
Этажность убирается чейнингом
N
в целом верно, но в других языках меньше этой этажности.
Вспомнил callback hall в js, что-то защемило в область сердца
CD
Этажность убирается чейнингом
И дроблением на функции