Q
ок
(defun f (..) ..) (filter (partial f x) seq) куда понятнее чем (defun make-f (..) (lambda ..)) (filter (make-f ..) seq). Индирекции попросту объективно меньше, это видно.Size: a a a
2021 June 27
a
Ну в общем у меня вообще никаких сомнений нет, что
a
Дело не в сигнатуре. Аргументы в вызове
filter-plist лучше писать не под filter-plist, а справа, и :single t на отдельной строчке. А сейчас он выглядит как часть формы make-plistp.a
Т.е. если x, y длинные, то лучше
(f x
y
:single t)
(f x
y
:single t)
Q
filter и partial это стандартное?
a
Нет, но я увидел filter и предположил, что эти термины будут понятными.
partial есть в alexandria.
partial есть в alexandria.
Q
а, это, не перенес, почему то
Q
пока намеренно избегаю зависимостей
a
Ну filter это просто
(setf (fdefinition 'filter) #'remove-if-not), если что. Но я не предлагаю их юзать, я просто так обозначаю уже написанный код (в моем варианте слова partial тоже нет, но происходит именно оно).Q
отдаленно манкипатчинг напоминает, но не он, конечно
Q
ну а по тому "предикату" - это однозначно make-plist-test, потому, что - на скрине... P/S/ не так уж однозначно, возможно make-seq-test-plist-matcher))
a
Это просто alias.
Q
да я понял )
Q
весьма семантично (херня) .. make-filter-seq-test-plist-matcher ... все равно херня. Карочи да, херня.
Q
это посмотрю, сейчас вообще не соображаю
n
...&key single)
n
(when single (car (remove-if-not test seq)))
n
без (let ((result...
Q
оно никак не соотносится с логикой в моем коде.
n
с result – лишнее присваивание