Распространенная ошибка Lisp: ожидаемый тип: REAL datum: NIL - PullRequest
Новая
       37

Распространенная ошибка Lisp: ожидаемый тип: REAL datum: NIL

1 голос
/ 02 марта 2011

Я работаю над тем, чтобы написать что-то для себя в Common Lisp на этот раз, реализуя алгоритм Shunting-yard.Я думал, что все прошло хорошо, даже если это получилось довольно уродливо, и если я сомневаюсь в его ошибочности, но после тестирования функции в REPL я получаю ошибку в заголовке.

Код такойдалее, с контрольным примером (shunting-yard '(3 + 5)). 

(defparameter *output-queue*   nil)
(defparameter *operator-stack* nil)

(defun determine-precedence (operator)
  (case operator
    (('+ '-) 2)
    (('* '/) 3)
    ('^      4)))

(defun shunting-yard (stmt)
  (loop until (null stmt) do
       (let ((token (car stmt)))
         (cond ((or (numberp token)
            (eq token '\())
            (setf *output-queue* (cons token *output-queue*)))
               ((mapcar #'(lambda (x) (eq token x)) '(+ - * / ^))
            (let* ((token-precedence (determine-precedence token))
                   (stack-topmost (car *operator-stack*))
                   (stack-precedence (determine-precedence stack-topmost)))
              (when (< token-precedence stack-precedence)
                (setf *output-queue* (cons stack-topmost *output-queue*))
                (setf *operator-stack* (cdr *operator-stack*)))
              (setf *operator-stack* (cons token *operator-stack*))))
               ((eq token '\))
            (loop for stack-topmost in *operator-stack*
               until (eq stack-topmost '\()
               do (progn
                (setf *output-queue* (cons stack-topmost *output-queue*))
                (setf *operator-stack* (cdr *operator-stack*)))
               finally (setf *operator-stack* (cdr *operator-stack*)))))
         (setf stmt (cdr stmt))))
  (loop while (not (null *operator-stack*))
     do (progn
      (setf *output-queue* (cons (car *operator-stack*) *output-queue*))
      (setf *operator-stack* (cdr *operator-stack*))))
  (nreverse *output-queue*))

Ошибка в самом коде (мое предположение) или в моем контрольном примере?

Большое спасибо заранееэто было ДЕЙСТВИТЕЛЬНО весело писать, и я не могу дождаться, чтобы поработать над чем-то другим, но только после того, как у меня получится.

1 Ответ

2 голосов
/ 02 марта 2011

Есть несколько ошибок:

Первый: 

(defun determine-precedence (operator)
  (case operator
    (('+ '-) 2)
    (('* '/) 3)
    ('^      4)))

Кавычки должны идти.Все.

Второй: 

(mapcar #'(lambda (x) (eq token x)) '(+ - * / ^))

Выше не делать то, что вы думаете.Замените его вызовом MEMBER.

Третий: 

 (when (< token-precedence stack-precedence)

Необходимо убедиться, что переменные действительно связаны с числами.Для проверки используйте что-то вроде 

 (check-type token-precedence number)
 (check-type stack-precedence number)

.

Счастливая дальнейшая отладка ...

...