lisp - GNU CLISP 中的 if 条件

Question

我需要一些帮助，当我自己在解释器中输入值时，我的代码没有返回好的答案。这是我的代码:

(defun compromis() 
  (flet ((prompt (string)
           (format t "~&~a: " string)
           (read nil 'eof nil)))
    (print "Enter values :")
    (let ((E (prompt "tddv_estime"))
          (W (prompt "tddv_worst"))
          (C (prompt "gisement_courant"))
          (M (prompt "gisement_max"))
          (m (prompt "gisement_min")))
      (if (> E W)
          (if (> C m)
              (print "Decrement")
              (print "Error")))
      (if (< E W)
          (if (< C M)
              (print "Increment")
              (print "Nothing"))))))

当我应该用 E=8、W=16、C=2、 读取“增量”时Max=8 和 Min=1，我的 "Nothing" 显示了两次...

Answer 1

您会看到“Nothing”两次，因为 print都打印并且 返回它的参数，并且，因为它是函数中的最后一种形式 compromis，它返回print返回的值。 由于您正在评估 REPL 中的代码(Read-Eval-Print 循环)， 您会看到打印输出和返回值。

PS。请注意，lispers 通过缩进读取代码，而不是通过括号计数。我编辑了你的函数以符合通用的编码标准(实际上，Emacs 为我做了这件事)。