PG
(if (and (cdr '(1)) (not (empty? (cdr '(1))))) 2 3)
вот так проверяй
вот так проверяй
not empty? это null?
Size: a a a
2020 August 20
SA
then again тогда уж не карп а neut
AP
not empty? это null?
вроде null? и emply? одно и то же
PG
тьфу, задумался и ерунду какую-то написал
PG
вообще в схеме есть cons?, list? и empty?/null?
SA
)))))))))
PG
так что непустой список в любом случае надо два раза проверять
AP
Тут проблема в том, что при использовании car/cdr и прочего неудобно отлавливать конец списка. Это обычно в рекурсиях требуется. А по схемной идеологии нагляднее какой-нибудь map и т.п. использовать по спискам гонять +)
PG
чего там неудобного?
AP
чего там неудобного?
Ну на примере выше. Когда (and '() #t) => #t
Типа дополнительную проверку надо
Типа дополнительную проверку надо
AP
В CL не надо, там '() - это false
PG
бже
PG
ну пишешь empty? это так сложно что ли?
AP
Сравнительно - громозже получается +)
PG
да ладно, и так почти всегда его писать приходится
AP
Ну да, поэтому я сразу и сказал, что можно или макрос накидать, или какую-нибудь мегафукнцию (my-cool-cdr lst) которые будут уже внутри на предмет пустого списка првоерять
AP
https://www.lambdanative.org/ - схема, которая комплится в нативный андроид и ios.
Прям зачетная тема. Based on the Gambit-‐C Scheme compiler
AP
В чем особенности у Gambit - схемы?
SD
Кто читал Common Lisp An Interactive Approach? https://cse.buffalo.edu/~shapiro/Commonlisp/ (пдф бесплатно)
На Амазоне какой-то Мэтт Пироглу горячо рекомендует https://www.amazon.com/Common-LISP-Interactive-Approach-Principles/dp/0716782189/
На Амазоне какой-то Мэтт Пироглу горячо рекомендует https://www.amazon.com/Common-LISP-Interactive-Approach-Principles/dp/0716782189/