RosettaCodeData/Task/Amb/Common-Lisp/amb-4.lisp

3 lines
60 B
Common Lisp

(defun match (a b)
(equal (elt (reverse a) 0) (elt b 0)))