Question

这真让我头疼

我在文件中写了一个简单的函数。

 (defun find-num (string)
   (if (> (length string) 1)
       (parse-integer (remove (coerce (get-first-letter string)
                                      'character)
                              string))
     ;else
     1))

它的作用是在删除第一个字母后解析字符串“a23”中的数字。我假设只有第一个字符是字母，其余的是“数字”。

我加载文件，当我尝试运行该函数时，它会给我错误，说： 正确的清单不得以“a3”结尾......什么???

但是当我直接在命令行中复制并粘贴相同的代码时，该函数就可以正常工作。

这是什么？常见的lisp错误？或者有什么我没看到的？

 ;; Loading file C:\Users ... (hidden)
 ;; Loaded file C:\Users ... (hidden)
 T
 [2]> (find-num "a3")

 *** - ENDP: A proper list must not end with "a3"
 The following restarts are available:
 ABORT          :R1      Abort main loop
 Break 1 [3]> :a

 [4]> (defun find-num (string)
   (if (> (length string) 1)
  (coerce (get-first-letter string) 'character) string))

     ;else
     1))
 WARNING: DEFUN/DEFMACRO: redefining function FIND-NUM in top-level, was
     defined in C:\Users\.... (hidden)
 FIND-NUM
 [5]> (find-num "a3")
 3 ;
 1

Answer 1

顺便说一下：

(parse-integer (remove (coerce (get-first-letter string) 'character) string))

只是

(parse-integer (remove (aref string 0) string))

更好：

(parse-integer (subseq string 1))

是最好的

(parse-integer string :start 1)

常见的lisp中非常奇怪的错误

1 个答案: