Сопоставление шаблонов в схеме

Как мне принять следующий ввод?

(list of 0 or more charcters and ends with 3) or   
(list of 1 or more characters 4 and  0 or more characters after 4)

что-то типа

(match ( list 3)) -> #t
(match ( list 1  2 3)) -> #t
(match (list 1 2 3 4)) -> #t
(match (list 1 2 3 4 5)) -> #t
(match (list 4)) -> #f

РЕДАКТИРОВАТЬ: ЭТО НЕ МОЯ ДОМАШНЯЯ РАБОТА. Я пытаюсь написать что-то вроде ELIZA из PAIP, но я знаю только, как написать шаблон, начинающийся со слова.


functional-programming lisp scheme racket
person unj2    schedule 27.06.2009    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Вы упоминаете символы, но затем используете числа в своем примере. Здесь я использую числа, но переход на символы тривиален.

(require scheme/match)
(define satisfies
  (match-lambda
    [(list (? number?) ... 3) #t]
    [(list (? number?) ..1 4 (? number?) ...) #t]
    [_ #f]))
person Jay Kominek    schedule 28.06.2009