Q
ок, генерализуем
Size: a a a
2021 June 26
a
properly generalized, это неплохая библиотека. Так что надо приготовиться к длительному приключению.
a
(я, конечно, считаю, что обобщать не нужно)
Q
lisp именно про такое - длительное приключение
a
Ну я кагбы сильно сомневаюсь, что надо куда-то обобщать когда непонятно, что за данные-то кроме plists.
Q
structure like
a
Тогда функция должна называться не subplistp, а plist-specifies-subobject-p или что-то такое.
Q
я вообще еще ни в структуры лиспа (в широком смысле), ни в типы данных значений не вникал, так что, могу нанести пурги
Q
wherep, кроме нейминга, еще как то разгромить можно?
a
Я б написал как-то так: https://dpaste.org/EvFz (это Орг, но все должно быть понятно).
n
sub-plist-p
a
Ну вот в стандарте есть subsetp.
n
wordp
word-word-p
word-word-p
a
subplistp = «Is x a subplist of y?»
n
Вы правы
a
Можно сделать так чтоб
not-present не пересоздавался при каждом вызове, а был один на все вызовы subplistp, поменяв местами defun и let (поставить курсор на открывающую скобку (loop ..) и paredit-convolute-sexp или lispy-convolute), но я не в курсе всех тонкостей взаимоотношений компилятора и тех defun'ов, которые не toplevel.SA
(defun make-predicate (&rest args)
(lambda (x)
(loop :for ls := args :then (cddr args) :while ls
:always (equal (getf x (first ls)) (second ls)))))
SA
че скажешь про такую версию
Q
я тут не все заклинания знаю )
SA
ты попробуй примени чтобы