ST
тогда эта, макросы тут нафиг не нужны
ну не хочет человек одну и ту же конструкцию сто раз писать по коду, чего ты пристал 😊
Size: a a a
2020 April 10
DL
ну не хочет человек одну и ту же конструкцию сто раз писать по коду, чего ты пристал 😊
так я тоже не люблю
E
ну не хочет человек одну и ту же конструкцию сто раз писать по коду, чего ты пристал 😊
Это мне предъява от наставника пришла, что принцип DRY мой код нарушает, а я как раз у Эмерика про макросы прочёл и думаю - дай запилю макрос.
DL
ну не хочет человек одну и ту же конструкцию сто раз писать по коду, чего ты пристал 😊
(defn db []
(-> (mg/connect)
(mg/get-db "monger-test")))
(defn find-maps-local []
(let [coll "documents"]
(partial mc/find-maps (db) coll)))
(defn set-counter-2 []
(if-let [ids (seq (map :_id (find-maps-local)))]
(apply max ids)
0))
разве не? (fixed)
DL
с неймингом у меня не очень, но суть ясна, думаю
DL
о, пива надо
теперь можно, думаю
ST
(defn db []
(-> (mg/connect)
(mg/get-db "monger-test")))
(defn find-maps-local []
(let [coll "documents"]
(partial mc/find-maps (db) coll)))
(defn set-counter-2 []
(if-let [ids (seq (map :_id (find-maps-local)))]
(apply max ids)
0))
разве не? (fixed)
(def db
(-> (mg/connect)
(mg/get-db "monger-test")))
такое вряд ли будет работать до запуска приложения
DL
(def db
(-> (mg/connect)
(mg/get-db "monger-test")))
такое вряд ли будет работать до запуска приложения
fixed
DL
(defn db []
(-> (mg/connect)
(mg/get-db "monger-test")))
(defn find-maps-local []
(let [coll "documents"]
(partial mc/find-maps (db) coll)))
(defn set-counter-2 []
(if-let [ids (seq (map :_id (find-maps-local)))]
(apply max ids)
0))
разве не? (fixed)
ну и вообще
(defn set-counter-2 []
(if-let [ids (seq (map #(get % :_id) (find-maps-local)))]
(apply max ids)
0))
ST
ну и вообще
(defn set-counter-2 []
(if-let [ids (seq (map #(get % :_id) (find-maps-local)))]
(apply max ids)
0))
```
(defn set-counter-2 []```
(if-let [ids (seq (map :_id (find-maps-local)))]
(apply max ids)
0))
DL
```
(defn set-counter-2 []```
(if-let [ids (seq (map :_id (find-maps-local)))]
(apply max ids)
0))
+++
E
Мощно.
ST
(defn set-counter-2 []
(or (some->> (find-maps-local)
(map :_id)
(seq)
(apply max))
0))
ST
(defn set-counter-2 []
(or (some->> (find-maps-local)
(map :_id)
(seq)
(apply max))
0))
(defn set-counter-2 []
(or (some->> (seq (find-maps-local))
(map :_id)
(apply max))
0))
E
(defn set-counter-2 []
(or (some->> (find-maps-local)
(map :_id)
(seq)
(apply max))
0))
Вот тут немного не догнал.
ST
Вот тут немного не догнал.
чего именно?
E
->> - thread last, т.е. полученных от применения предыдущей функции результат ставим последним аргументом для следующей
some - 1) по доке требует предикат и коллекцию, предиката у нас нет 2) в какой момент вычисляется some?
some - 1) по доке требует предикат и коллекцию, предиката у нас нет 2) в какой момент вычисляется some?
DL
some->> - это отдельный макрос
DL
это как ->>, но коротко замыкается на nil
E
можно ссылку дать на доку? а то я искал как отдельный, но из-за спецсимволов гугл не нашел ничо