IG
Это для макросов и для тегов, не для обычных defn
Size: a a a
2021 November 08
IG
Чтобы после развертки макросов получить уже готовый список, что будет работать быстрее.
ST
на самом деле тело функции получается такое
(defn my-merge [head v1 v2]
(apply vector (seq (concat (list head) v1 v2))))
AR
тем, что это не работает
ST
(macroexpand-1 (quote `[~head ~@v1 ~@v2]))
=>
(clojure.core/apply
clojure.core/vector
(clojure.core/seq (clojure.core/concat (clojure.core/list head) v1 v2)))
ST
как бы работает, иначе бы человек не спрашивал 😊
IG
а что если в
my-merge передется результат базы данных?A
Спасибо! Чё-то я крутился с раскрытием макроса, но правильно применить не додумался
ST
ну так тоже работает, хотя и выглядит крипово
(macroexpand-1 '`[~head ~@v1 ~@v2])
=>
(clojure.core/apply
clojure.core/vector
(clojure.core/seq (clojure.core/concat (clojure.core/list head) v1 v2)))
ST
в общем, с into будет лучше
AR
спасибо, тупанул!
ST
(defn my-merge [head v1 v2]
(into [head] cat [v1 v2]))
OR
Следующим шагом убрать отдельную функцию )
A
Забавно, безобидный с виду `[] раскрывается в (apply vector (seq (concat)))
IG
подводные камни в том, что это менее читаемо. синтаксис с бектиком и тильдой нужен для того, чтобы нагенерить код по условию. А когда логика известна заранее, нужно писать обычный код
ST
(defn my-merge-1 [head v1 v2]
`[~head ~@v1 ~@v2])
(defn my-merge-2 [head v1 v2]
(into [head] cat [v1 v2]))
(my-merge-1 14 [13 12] [11 10]) ; Execution time mean : 941,402397 ns
(my-merge-2 14 [13 12] [11 10]) ; Execution time mean : 269,109520 ns
E
не понимаю, почему post не заводится:
(defn boo [x]
{:post [(fn [y] (:c y))]}
(merge x {:k 5}))
(boo {:m 3})
=> {:m 3, :k 5}
в моём представлении - post есть вектор 1-арных функций, принимающих результат вычисления тела функции с аргументами и возвращающих бул, ежели какая-либо из этих функций возвразает ложное значение - возбуждается эксепшен assert failed
у меня assert вроде однозначено failed - в итоговой мапке нет ключа :c, но вместо эксепшна мне приходит результат
ЧЯДНТ?
(defn boo [x]
{:post [(fn [y] (:c y))]}
(merge x {:k 5}))
(boo {:m 3})
=> {:m 3, :k 5}
в моём представлении - post есть вектор 1-арных функций, принимающих результат вычисления тела функции с аргументами и возвращающих бул, ежели какая-либо из этих функций возвразает ложное значение - возбуждается эксепшен assert failed
у меня assert вроде однозначено failed - в итоговой мапке нет ключа :c, но вместо эксепшна мне приходит результат
ЧЯДНТ?
KC
:post [(:c %)]
вот так надо
и :pre и :post это список выражений а не функций
вот так надо
и :pre и :post это список выражений а не функций
E
а какая фундаментальная разница между
#(:c %) и (fn [y] (:c y)) , никакой же:
(macroexpand-1 '#(= % 5))
(fn* [p1__18055#] (= p1__18055# 5))
и да, так тоже не работает:
(defn boo [x]
{:post [#(:c %)]}
(merge x {:k 5}))
(boo {:m 3})
=> {:m 3, :k 5}
#(:c %) и (fn [y] (:c y)) , никакой же:
(macroexpand-1 '#(= % 5))
(fn* [p1__18055#] (= p1__18055# 5))
и да, так тоже не работает:
(defn boo [x]
{:post [#(:c %)]}
(merge x {:k 5}))
(boo {:m 3})
=> {:m 3, :k 5}