про higher order functions -- имплементирую comp Нужно чтобы

(is (= ((COMP list +) 2 2) (list (+ 2 2))))

(defn COMP [f & rest]
  (if (nil? rest)
    f
    (apply f (COMP rest))))

и без apply тож... а так клево выглядит

оригинал вроде функция, не макрос

в оригинале через хитрый редьюс

а тут рекурсия

a = b : c : 1
result = a?.b?.c or "sorry"

это на CoffeeScript, а как такое повторить на Clojure?

@comerc: keyword так себя ведут по умолчанию с nil

(let [a {}] (-> a :b :c (or "sorry")))
“sorry”

поправил

(let [a {:b 4}] (-> a :c (or (a :a) (a :b) "sorry"))) ;; => 4

user=> (let [a {:c 3}] (-> a :b :c (or "sorry")))
"sorry"

@seryh: поясни, чего поправил? я проверял, вроде все работало.

(let [a {:c 3}] (-> a :b :c (or "sorry")))

a = b : c : 1 это var a = {b: {c: 1}} что ли?

ага

т.е. варианта [a {:c 3}] не может быть

это борьба со следствием, а не с причиной

можно еще

(get-in a [:b :c :d :e] "sorry")

но последние пару месяцев я тоже через -> пишу, и формулы тоже

типа (def h (-> rows count inc (* db/HEIGHT)))

мы этого еще не проходили 🙂

some-> няшный тоже

сам-> ништяк, да

(let [a {:c 1}] (get-in a [:b :c] "sorry")) - во, а это работает правильно!

я тут такое вчера нашел!

cljs.user=> (print "yo")
yo
nil
cljs.user=> (def s (with-out-str (print "yo")))
#'cljs.user/s
cljs.user=> s
"yo"

я тоже это находил, тока не помню чтоб было нужно 🙂

в ios алёрт прити принтить словари

@misha: а как корректно изобразить (get-in a [:b :c :d :e] "sorry") с помощью ->?

(let [a {:c 3}] (-> a :b :c :d :e (or "sorry")))

(macroexpand-1 '(-> {:c 3} :b :c (or "sorry")))
(or (:c (:b {:c 3})) "sorry")

@seryh: (let [a {:c 3}] (-> a :b :c (or "sorry"))) - тут все правильно, так и должно быть

я напутал сам

а , ок. мой пример перебирает ключи а не ищет вложения

user=> (let [{{c :c} :b} {}] (or c "sorry"))
 "sorry"
user=> (let [{{c :c} :b} {:b {:c 3}}] (or c "sorry"))
3

еще вариант

@kronos_vano: рекурсия, но не композит функции почуму-то...

композиция - последовательное применение функции к результату предыдущей, да? ну я это и делаю.. кажется

подозрение на то, что надо писать макрос, если рекурсией. но вот в оригинале без макроса

@seryh: wtf is that?

Деструктуризация же

Парни, уже весь мозг сломал как сделать, может кто сталкивался. Хочу сделать в консольной утилите репл, собственно по простой и непринужденной конструкции

(print (eval (read-string (read-line))))

@savelichalex: а

(resolve x)

@savelichalex: думаю ты ищешь вот это https://github.com/GeorgeJahad/debug-repl/blob/master/src/alex_and_georges/debug_repl.clj#L68

я то же самое сделал в https://github.com/razum2um/clj-debugger

короче эвалить надо форму с явными биндингами локальных переменных

@razum2um: хм, все дело в *locals*?

*locals* просто перечислит локальные переменные. фишка в том, что внутрь эвала нельзя прокинуть чтото типа объекта context (aka binding в рубях), приходится формировать обертку

блин как будто эти переменные с ноги засовывают) спасиб @razum2um

срочно в номер http://blog.cognitect.com/blog/2016/7/26/clojure-spec-screencast-testing

ничо так, но я все равно не понимаю - во время разработки в репле подразумевается что я запущу clojure.spec/instrument в начале сессии для всех функций или по отдельности буду включать? или вообще тока в тестах?

https://clojurians.slack.com/archives/off-topic/p1469638416000277