- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我只想用c-lisp编写一个简单的程序;接受一个数字并返回从 0 到该数字的所有数字的列表。我对 lisp 比较陌生,我很好奇更有经验的人会如何做到这一点。我的程序是这样的:
(let ((a 0) (lis '()))
(defun counter (len)
(setq lis (cons a lis)) (setq a (+ a 1))
(if (< a len) (counter len) lis)
))
但我觉得它不太符合 lisp 的精神,一定有更优雅的方法吧?
我的另一个想法是这个的某个版本,但是如何将输出放入列表中?
(defun counter2 (x)
(print x)
(cond ((< 0 x) (counter2 (- x 1)))))
感谢您的时间和最终的帮助,:)
最佳答案
我们将研究一系列转换,尝试改进您的代码:
您的代码:
(let ((a 0) (lis '()))
(defun counter (len)
(setq lis (cons a lis)) (setq a (+ a 1))
(if (< a len) (counter len) lis)
))
格式
典型的格式如下:
(let ((a 0)
(list '()))
(defun counter (len)
(setq list (cons a list))
(setq a (+ a 1))
(if (< a len)
(counter len)
list)))
问题
上面的代码有很多问题:
函数定义周围有一个LET
。这在函数外部定义了变量a
和list
?为什么?
看起来非常有必要
这是一个递归函数,可能会耗尽堆栈空间
不返回按升序排列的数字列表,这是问题陈述中的要求
更好的递归版本
让我们看一下递归版本:
(defun counter (len &optional (a 0) (list '()))
(if (>= a len)
list
(counter len
(1+ a)
(cons a list))))
上面去掉了周围的LET
并使变量a
和list
成为可选参数。
基本情况也是 IF
中的 then
情况。
隐藏变量a
和list
可能会更好。所以我们可以使用局部递归函数:
(defun counter (len)
(labels ((counter-rec (a list)
(if (>= a len)
list
(counter-rec (1+ a) (cons a list)))))
(counter-rec 0 '())))
上述函数使用本地函数进行递归。
我们仍然可能希望按升序返回列表:
(defun counter (len)
(labels ((counter-rec (a list)
(if (>= a len)
list
(counter-rec (1+ a) (cons a list)))))
(nreverse
(counter-rec 0 '()))))
上面使用了破坏性函数NREVERSE
,我们可以使用它,因为生成的列表是新创建的并且没有在其他地方使用。
我们还可以在递归函数中进行倒数。这摆脱了NREVERSE
:
(defun counter (len)
(labels ((counter-rec (a list)
(if (minusp a)
list
(counter-rec (1- a) (cons a list)))))
(counter-rec (1- len) '())))
将 DO 循环用于非递归版本
(defun counter (len)
(do* ((a len (1- a))
(list '() (cons a list)))
((zerop a) list)))
(defun counter (len)
(do* ((a len (1- a)) ; A from len to zero
(list '() (cons a list))) ; consing the result
((zerop a) list))) ; the end condition and
; list as the result
循环
Common Lisp 提供了一个内置的强大的 LOOP
宏,我们可以这样写:
(defun counter (len)
(loop for i below len
collect i))
上面从 0
迭代 i
到 (1- len)
并将每个 i
收集到一个列表中返回。
COUNTER 在 Lisp 中称为 IOTA
像 COUNTER
这样的函数存在于 Lisp 库中,传统上称为 iota
。
CL-USER 1 > (ql:quickload "alexandria")
("alexandria")
CL-USER 2 > (apropos "iota")
ALEXANDRIA:MAP-IOTA (defined)
ALEXANDRIA:IOTA (defined)
CL-USER 3 > (ALEXANDRIA:IOTA 10)
(0 1 2 3 4 5 6 7 8 9)
关于list - 在 Common Lisp 中创建升序数字列表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/76076952/
你们能帮帮我吗,这是我们的讲师给我们的教程问题,无论我们尝试了多少,我们实际上似乎都无法破解它。请帮忙 ; perform some type/error checking, ; then ca
在 Common Lisp 中编写、编译和测试一个函数,该函数接受一个列表并计算列表中正整数的总数。必须编译然后执行包含函数的 .lisp 文件。在编译该文件后开始传递它,列出要生成的结果的结果,从而
我是 Lisp 初学者,我很难理解为什么下面的代码会给我一个错误。 (dolist (elem '(mapcar mapcon)) (when (fboundp `
我听说 Lisp 可以让你重新定义语言本身,我也试图研究它,但没有任何地方明确的解释。有人有一个简单的例子吗? 最佳答案 Lisp 用户将 Lisp 称为 可编程编程语言 .用于符号计算 - 用符号计
Closed. This question is off-topic. It is not currently accepting answers. Learn more。 想改进这个问题吗Updat
这些是 cons 参数的不同组合的输出。我刚开始学习 lisp。有人可以帮我理解这些吗? Break 80 [81]> (CONS '(A) 'B) ((A) . B) Break 80 [81]>
这个问题不太可能帮助任何 future 的访问者;它只与一个小的地理区域、一个特定的时间点或一个非常狭窄的情况有关,这些情况并不普遍适用于互联网的全局受众。为了帮助使这个问题更广泛地适用,visit
我想问一下为什么这个功能不起作用... (defun nenum(ls) (cond ((null ls) nil) ((listp car(ls)) (nenum (rest ls)
如果我有一个原子,例如“a4”,我需要能够将 1 添加到“4”部分以使其成为 a5,但是因为它被认为是一个字符串,所以这是不可能的,所以如果我可以拆分 (a4 ) 到 ((a)(4)) 中,然后我可以
我有一个关于动态构建函数(或类似的东西)的问题。在 Java 中,我可以通过编程将一些 Source 写入字符串,编译该字符串并像函数一样执行它多次。 假设我有一些遗传算法来创建最佳代码以获取 n 个
我是 Common Lisp 的新手,正在学习教程,但无法全神贯注 (equal '(reverse (a b)) '(b a))) 返回零。 非常感谢您的协助。 M. 最佳答案 在 lisp 中引
我有一个使用列表表示的树。例如: (1 ((2 (3)) (3 (2)))) (2 ((1 (3)) (3 (1)))) (3 ((1 (2)) (2 (1)))))` 现在我需要在维护层次结构树的同
在此站点:http://www.gigamonkeys.com/book/practical-a-simple-database.html有如下列出的用户入口函数: (defun prompt-rea
我对 lisp 比较陌生,对在以下上下文中使用嵌套列表的最佳方法很好奇: 所以,我有以下功能: (defun get-p0 (points) (loop for (label x y) in
我正在为 CLOS 类编写一个函数,该函数反转所述类对象的列表元素。 我有一个返回反向列表的方法,但如何让它将对象的列表设置为该列表?我可以在存储列表的函数中有一个实例变量,然后将元素设置为那个吗?或
我知道,严格来说,没有编译语言或解释语言这回事。 但是,一般来说,LISP 是用来编写 Python、bash 脚本、批处理脚本之类的脚本的吗? 还是像 C++、JAVA 和 C# 这样的通用编程语言
在此站点 http://jatha.sourceforge.net/快速函数的示例是通过递归。是不是递归通常比 Lisp 中的迭代更快并且性能更好? 编辑:Lisp 是否比其他语言更优化递归? 最佳答
另一个新手(常见)LISP 问题: 基本上在大多数编程语言中,函数都有一种方法接收对变量的引用而不仅仅是值,即通过引用传递而不是通过值传递。比方说,为了简单起见,我想编写一个 LISP 函数来接收一个
这个问题在这里已经有了答案: How do I find the index of an element in a list in Racket? (3 个答案) 关闭 9 年前。 如果我有这样的列
我在为这个程序生成正确的输出时遇到了一些问题。我的输出几乎是正确的,但缺少一些步骤。我的代码如下: (defun kt (x y m n) ;set the
我是一名优秀的程序员,十分优秀!