SA
сложной вещи
Size: a a a
2020 October 17
a
Чтоб и полуоткрытый интервал, и перечисление вариантов, и не слишком непохоже на обычный case, желательно.
SA
ну про формат интервалов я сказал
SA
перечисление вариантов можно через or
VL
(check-type 3 (integer 0 10))?
VL
(defmacro in-range (var min max)
(flet ((crop (s) (parse-integer (symbol-name s) :start 1)))
(cond
((and (integerp min) (integerp max))
`(< ,min ,var ,max))
((and (symbolp min) (symbolp max))
`(<= ,(crop min) ,var ,(crop max)))
((and (symbolp min) (integerp max))
(alexandria:once-only (var)
`(and (<= ,(crop min) ,var) (< ,var ,max))))
((and (integerp min) (symbolp max))
(alexandria:once-only (var)
`(and (< ,min ,var) (<= ,var ,(crop max))))))))
VL
я запилил короче
VL
работает)
SA
есть еще
(integer 0 (10)) напоминаюVL
есть еще
(integer 0 (10)) напоминаюэто шо значит
SA
вхождение
SA
как раз таки
VL
хмм ну так почему бы тогда не юзать check-type
VL
ой typep
VL
(typep 5 '(integer 0 (5)))
NIL
NIL
VL
значит невхождение
SA
ага
SA
а если убрать то
SA
входит
a
ну про формат интервалов я сказал
Но тогда нельзя отличить
это полуинтервал от 0 до r или замкнутый интервал от 0 до (r).
(number-case n
((0 (r)) )
это полуинтервал от 0 до r или замкнутый интервал от 0 до (r).