Succeed if all the patterns match the input. (cond ((eq bindings fail) fail) ((null patterns) bindings) .
Question:
"Succeed if all the patterns match the input."
(cond ((eq bindings fail) fail)
((null patterns) bindings) .
(t (match-and (rest patterns) input
(pat-match (first patterns) input bindings)))))
(defun match-or (patterns input bindings)
Fantastic news! We've Found the answer you've been seeking!
Step by Step Answer:
Related Book For
Paradigms Of Artificial Intelligence Programming Case Studies In Common Lisp
ISBN: 9781558601918
1st Edition
Authors: Peter Norvig
Question Posted: