AG
А Laravel в общем-то даже не скрывается что inspired by Rails
Size: a a a
2019 June 23
VL
Для своих задач php вполне нормальная идея сегодня. А байки растут от тех кто в лучшем случае лет 7-10 назад "писал" на php что-то типа хелловорда.
Ну так и spring хорош
AG
И оба хороши, и довольно разные. То есть еще и выбор есть.
T
Мне нужен merge но наоборот: вычесть из мапки другую мапку со сравниванием на совпадение
Можно это как-то лучше сделать?
Можно это как-то лучше сделать?
>>> (reduce-kv (fn [m k v] (if (= (m k) v)
(dissoc m k)
m))
{:a 1, :b 2, :c 3}
{:b 2, :c 3})
{:a 1}AG
Можно посмотреть в сторону clojure.set/difference
AG
Только на ключах, а потом взять их через select-keys
AG
user=> (difference (set (keys {:1 1 :2 2 :3 3})) (set (keys {:1 1 :2 2})))
#{:3}
#{:3}
T
user=> (difference (set (keys {:1 1 :2 2 :3 3})) (set (keys {:1 1 :2 2})))
#{:3}
#{:3}
Если только на ключах, то не проверяется равенство, а в таком случае гораздо проще будет
(apply dissoc {:a 1, :b 2, :c 3} (keys {:b 2, :c 3}))AG
Да, выглядит проще, не у компа, позже поиграюсь со значениями
AG
ну вот так тоже работает вроде
(clojure.set/difference (set (seq m1)) (set (seq m2)))
AG
но не уверен что оно работает как тебе надо
SI
Так а чем не подходит
(use 'clojure.data)
(first (diff {:a 1 :b 2 :c 3} {:b 2 :c 3}))
AG
тоже должно
SI
user=> (let [a {:a 1 :b 2 :c 3}
#_=> b {:b 2 :c 3 :d 4}
#_=> [a1 b1] (clojure.data/diff a b)]
#_=> (merge a1 b1))
{:a 1, :d 4}T
user=> (let [a {:a 1 :b 2 :c 3}
#_=> b {:b 2 :c 3 :d 4}
#_=> [a1 b1] (clojure.data/diff a b)]
#_=> (merge a1 b1))
{:a 1, :d 4}Да, так хорошо.спасибо!
SI
T
Помогите макрос написать. Хочу чтобы так работал:
Т.е. я хочу использовать этот макрос для дебага: оборачивать вокруг переменной, получать вывод ввиде
<имя с неймспейсом>:
<приттипринтед значение>
И чтобы возвращалось значение переменной. Ну типа чтобы прям куда угодно его пихнуть и оно вывело и не нарушило ход программы, тк возвращает переданый в него аргумент
>>> (macroexpand '(p x))
(do (println (str `x \:)
(clojure.pprint/pprint x)
x)
Пока что есть только вот это:(defmacro p [data]Там неправильно выводится имя переданной переменной
`(do (println (str `data \:))
(clojure.pprint/pprint ~data)
~data))
Т.е. я хочу использовать этот макрос для дебага: оборачивать вокруг переменной, получать вывод ввиде
<имя с неймспейсом>:
<приттипринтед значение>
И чтобы возвращалось значение переменной. Ну типа чтобы прям куда угодно его пихнуть и оно вывело и не нарушило ход программы, тк возвращает переданый в него аргумент
MG
У меня правильно выводится.
MG
user=> (macroexpand '(p x))
(do (clojure.core/println (clojure.core/str (quote user/data) \:)) (clojure.pprint/pprint x) x)