ST
а ещё лучше
😊
(defn make-thread
[body]
(doto (new Thread body)
(.start)))
😊
я не знаю, рабочий ли это пример, я просто переписал
Size: a a a
2021 January 28
KC
я не знаю, рабочий ли это пример, я просто переписал
если body это (fn [] …) то рабочий)
A
Ну в конкретном примере, вместо
Лучше писать:
Вместо сложно тестируемого, неочевидного макроса мы получаем простую, композируемую, тестируемую функцию со стектрейсом.
Автор пытается сэкономить одну решёточку печатания, и вместо этого делает спагетти-код.
Поэтому новичкам лучше не писать макросы. А то им дай молоток в руки — они будут им пользоваться постоянно.
(defmacro with-thread
[& body]
`(let [thread# (new Thread (fn [] ~@body))]
(.start thread#)
thread#))
(def t (with-thread (println 42)))
(.join t)Лучше писать:
(defn make-thread
[body]
(let [t (new Thread body)]
(.start t)
t))
(def t (make-thread #(println 42)))
(.join t)Вместо сложно тестируемого, неочевидного макроса мы получаем простую, композируемую, тестируемую функцию со стектрейсом.
Автор пытается сэкономить одну решёточку печатания, и вместо этого делает спагетти-код.
Поэтому новичкам лучше не писать макросы. А то им дай молоток в руки — они будут им пользоваться постоянно.
(defn make-thread [body]
(doto (Thread. body)
(.start)))
Можно не писать макросы, но использовать всё же стоит)TL
вот этот
Как по мне — это остроумно, если работает. Но возможны недопонимания с будущим читателем кода (с коллегой или с собой же через три месяца), поэтому лучше учитывать, что код должен быть удобен для чтения и понимания, а не для написания.
TL
(defn make-thread [body]
(doto (Thread. body)
(.start)))
Можно не писать макросы, но использовать всё же стоит)Использовать написанные умными дядьками — 100% стоит. Половина clojure.core на макросах :)
KC
Как по мне — это остроумно, если работает. Но возможны недопонимания с будущим читателем кода (с коллегой или с собой же через три месяца), поэтому лучше учитывать, что код должен быть удобен для чтения и понимания, а не для написания.
ну мне этот кусок коллега показал года два назад, все еще читаемо)
KC
и он работает)
AC
мальчики, и возможно, девочки - всем спасибо! с тредом понятно, с макросами тоже (пока на них не глядел), с core.async буду въезжать на досуге. В общем, пока правоверные треды буду запускать и в future заворачивать посылку в сокет. Пойду бороду подрежу, лысину залижу и соски помою :-)
AC
а с макросами разберемся, чай не M4 с сендмейлом
DL
а с макросами разберемся, чай не M4 с сендмейлом
ну ты вспомнил…
DL
Использовать написанные умными дядьками — 100% стоит. Половина clojure.core на макросах :)
да, но писать свои не надо почти никогда, только если альтернативы ну вот ваще нет
AC
ну ты вспомнил…
бороду подстриг (и по списку), вот и навеяло :-)
DL
бороду подстриг (и по списку), вот и навеяло :-)
я как вспомню - так вздрогну, хотя уже лет 12 не трогал этот ужос
AC
я как вспомню - так вздрогну, хотя уже лет 12 не трогал этот ужос
почти 20 не трогаю.... но икается до сих пор! UUCP тогда "наше все" было
DF
Хочу функу (условно readable-or-nil), которая первым или последним парамтером хавает путь к файлу (или java.io.File) и возвращает либо то же, что схавала, если файл canRead, либо nil.
Чтобы потом использовать в таком скрипте:
(some->
filepath
readable-or-nil
slurp
clojure.edn/read-string)
Кто-то знает такую функу в std-lib?
Или может кто-то вспомнит, может у slurp'а опция есть не бросать исключение если FileNotFound, а вернуть nil.
Чтобы потом использовать в таком скрипте:
(some->
filepath
readable-or-nil
slurp
clojure.edn/read-string)
Кто-то знает такую функу в std-lib?
Или может кто-то вспомнит, может у slurp'а опция есть не бросать исключение если FileNotFound, а вернуть nil.
IG
(defn wrap-safe [func]
(fn [& args]
(try
(apply func args)
(catch Exception e))))
IG
(some-> "aaa" ((wrap-safe slurp)))
IG
(some-> "project.clj" ((wrap-safe slurp)))
;; (defproject...
Г
