prgoram-language-no6-parse

2015-11-16-100231.el

(defun parse (functions data)
  (cond ((and (consp functions) (funcall (car functions) (cdr functions) data) ))
        ((eq functions data) 't)
        ('t 'nil)))

(defun terminal-symbol (list rest data)
  (cond ((and (consp data) (member (car data) list))
         (parse rest (cdr data)))
        ('t 'nil)))

(defun article (rest data)
  (terminal-symbol '(a the) rest data))

(defun noun (rest datap)
  (terminal-symbol '(I you book me) rest data))

(defun noun-phrase (rest data)
  (or (parse (append (list #'article #'noun) rest) data)
      (parse (append (list #'noun) rest ) data)))

(defun sentense (rest data)
  (or (parse (append (list #'noun-phrase #'verb-phrase) rest ) data)
      (parse (append (list #'noun-phrase #'verb-phrase #'noun-phrase) rest) data)))

(defun verb-phrase (rest data)
  (terminal-symbol '(have get love live) rest data))

(defun check(data)
  (parse (list 'sentense) data))