lispworks相关内容
我对Lisp还是陌生的,正在尝试编写一个程序,仅要求用户输入3个数字,然后对它们求和并打印输出. 我已阅读到您可以使用以下功能: (defvar a)(setq a(读)) 要在Lisp中设置变量,但是当我尝试使用LispWorks编译代码时,会出现以下错误: 在读取流# 时文件末尾 我觉得这应该相对简单,不知道我要去哪里. 解决方案
..
我对下面的LISP表达式有疑问。 CL-USER> ;,会有浮点精度错误。 (+ -380 -158.27 -35.52) 实际值:-573.79004 预期值:-573.79000 请建议我如何在LISP(我正在使用Lispworks)中达到预期的结果。 解决方案 浮点数不精确 浮点数是具有一定精度的数学实数的子集,它们是不是 精确数字。四舍
..
我有一个像这样的班 (defclass shape () ((color :initform :black) (thickness :initform 1) (filledp :initform nil) (window :initform nil))) 如果我只知道此类的实例,common-lisp中是否有一个功能如何获取这些插槽的列表? 解决方案 许多常见的Lisp实
..
你好,有人可以帮我吗? (defun f(x) (LIST ((* 2 x) (* 3 x))) ) (f 1) 我明白了,Illegal argument in functor position: (* 2 X) in ((* 2 X) (* 3 X)). 解决方案 应为: (defun f (x) (list (* 2 x) (* 3 x))) 对
..
我有一个带有原子T的板,我想获得列表和子列表中的位置 (defun board () "position of T: i=0 e j=9" '( ;; 0 1 2 3 4 5 6 7 8 9 (96 25 54 89 21 8 36 14 41 T) ;; 0 (78 47 56 23 5 NIL 13 12 26 60) ;; 1 (0 27
..
我具有此功能,可使用其他问题(defun newList (&optional(n 100)) (loop for i from (- n 1) downto 0 collect i)) (defun board (newList &optional(n 10)) (cond ((null newList) nil) (t (cons (subseq newList 0 n) (board (su
..
我想知道,如何在lisp中创建和写入文本文件。 我只想写简单的一行: “break 1” “break 2” 我在Window 7上使用LispWorks IDE $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ :if-exists:supersed
..