Lisp：如何提示读取浮点数？

Question

我有一个函数，我同时使用 parse-integer 和 prompt-read。但是，我需要这些整数之一是浮点数。当我将 parse-integer 更改为 parse-float 时，它不再起作用。 这是函数：

(defun prompt-for-cat ()                                                       
  (add-record                                                                  
    (make-cat                                                                    
      (prompt-read "Name")                                                        
      (prompt-read "Coloring")                                                    
      (or (parse-integer (prompt-read "Weight") :junk-allowed t) 0)               
      (or (parse-integer (prompt-read "Experience") :junk-allowed t) 0)           
      (or (parse-integer (prompt-read "Length") :junk-allowed t) 0))))  

这是按原样工作的，但我需要第一个整数“重量”作为浮点数。 parse-float 不起作用，我找不到正确的方法来做到这一点。

Answer 1

有两种方法可以做到这一点。一种是以某种形式使用read，另一种是使用浮点解析库。

使用read

委婉地说，使用read 充满危险。除非您小心，否则您尤其容易受到代码注入攻击。 切勿在您不完全信任输入的代码中使用read，除非您至少在其周围采取了一些安全预防措施。

也就是说，这里有一个函数，它试图以最低限度的安全方式使用read 来读取带有提示的浮点数。

(defun prompt-for-float (prompt &optional (default 0.0))
  ;; Use READ to read a float, in a way which should be at least
  ;; minimally safe.
  (with-standard-io-syntax
    (let ((*read-eval* nil))
      (format *query-io* "~A: " prompt)
      (finish-output *query-io*)
      (let ((result (read *query-io*)))
        (typecase result
          (float result)
          (real (coerce result 'float))
          (t default))))))

这至少尝试通过标准化语法和关闭读取时评估来更安全，这就是代码注入攻击的发生方式。

但是，这可能仍然不是完全安全的。除了可能不安全之外，就允许在系统上执行不受控制的代码而言，使用read 没有严格限制的可读表也不是无副作用的（例如，它可以实习符号），并且可以允许各种可能的拒绝服务攻击，例如通过导致大量内存分配。要解决这些问题，您要么需要做大量工作，将可读表缩减为安全的内容，要么使用仅读取您关心的类型的库。

使用浮点解析库

有一个名为parse-float 的库可以为您解决这个问题。该库可通过Quicklisp 获得。假设您安装了 Quicklisp（您应该安装它：如果没有，那么您的第一个问题是安排它是真的），然后使用它就像说 (ql:quickload "parse-float") 一样简单，然后解析浮点数，例如：

> (parse-float:parse-float "12.2")
12.2
4

Answer 2

(let ((weight (progn
                (format t "Weight: ")
                (read t))))
  (if (floatp weight) weight 0))