Да, читал, спасибо

В clojure.lang.Var есть static public volatile int rev
(обратиться получается можно просто clojure.lang.Var/rev)

Который инкрементится при любых биндах/перебиндах var'ов


После старта репла в пустом проекте этот rev = 5244
А на рабочем проекте 13871
Тоже в копилку к статистике по кол-ву кивордов :)

Всем привет. Подскажите, а можно ли сравнивать функции примерно следующим образом:

(defn example [f ...]
     (cond (= (map +) f)
                (print "example") …)

это же разные обьекты будут, не?

(defn example [f ...]
     (cond (= (map +) f)
                (print "example") …)

нельзя

(defn example [f ...]
     (cond (= (map +) f)
                (print "example") …)

Я не понял что за образ сравнения фукнций у тебя. Ты можешь сравнить фукнции подав в них одинаковые аргументы и сравнив результаты

Вот так:

(def f1 +)
(def f2 (comp - - +))

(def fns [f1 f2])

(def tests [[1 2 3] [] [1]])

(->> tests
     (map (->> fns
               (map #(partial apply %))
               (apply juxt)))
     (every? (partial apply =)))
;; => true

Я пишу решение задач ЛП симплекс-методом. Но мне хотелось бы сохранять не только результат вычислений в каждом случае, но и как оно было получено. То есть, например, хранить в программе, чейнить, передавать, а потом парсить мапу { value ast } где ast — будет структурой, описанной спекой как

(spec/def ::ast
  (spec/map-of keyword?
               (spec/or
                :node (spec/coll-of ::ast)
                :leaf (spec/coll-of (partial (comp not sequential?))))))

Например: {:minus [{:times [4 5 6]} {:plus [ 1 2 3 ]}]}

Я хочу некоторую оберточку над обычным, скажем, (map +) сделать, которая запихнет в value резульатат, а в ast узел.

А потом парсер для ast написать, для экспорта в tex.

Но судя по всему придется писать не как (map +), а кейвордами задавать.

'(map +)

Сравнивать символы

Эвалить если надо

Ну да. Если передавать quote, тогда все норм.

Я хотел передать не-quote, а внутри функции ее quote-нуть. Так не получается.

...что ожидаемо, вычисление значений аргументов же происходит до того, как функция начинает выполняться.
А вот если сделать макрос...

(spec/def ::ast
  (spec/map-of keyword?
               (spec/or
                :node (spec/coll-of ::ast)
                :leaf (spec/coll-of (partial (comp not sequential?))))))

Запоминай имя функции и параметры например

‘{:mapplus params}’

Квотнутое проблематично сравнивать