a
(and (consp sequence)
(if (funcall predicate (car sequence))
sequence
(exists predicate (cdr sequence)))))
Size: a a a
a
a
a
AK
a
a
a
AK
a
member
тоже возвращает хвост, и правильно.a
list
?a
lst
.AK
list
?AK
AK
VL
a
AK
a
member
тоже возвращает хвост, и правильно.a
member
тоже возвращает хвост, и правильно.member
как-то понятно, а вот exists
звучит как предикат, о, я придумал название member-if
и оказалось это оно и естьAK
member
как-то понятно, а вот exists
звучит как предикат, о, я придумал название member-if
и оказалось это оно и есть