program-language-no6

2015-11-16-091444.el

(defun my-match (pattern data)
  (cond ((and (consp pattern) (eq '* (car pattern)))
         (or (my-match (cdr pattern) data)
             (and (consp data)(my-match pattern (cdr data)))))
        ((and (consp pattern) (consp data) (eq (car pattern) (car data)))
         (my-match (cdr pattern) (cdr data)))
        ((eq pattern data) 't)
        ('t nil)))

(defun sample2 (pattern data)
  (cond ((and (consp pattern) (consp data)
              (or (eq '* (car pattern))
                  (eq (car pattern) (car data))))
         (sample2 (cdr pattern) (cdr data)))
        ((eq pattern data) 't)
        ('t nil)))

(defun sample1(pattern data)
  (cond ((and (consp pattern) (consp data) (eq (car pattern) (car data)))
         (sample1 (cdr pattern) (cdr data)))
        ((eq pattern data) 't)
        ('t nil)))