lisp

1热度

1回答

我一直在用allegro common lisp运行一个lisp程序几天。我现在需要使用CLISP但是当我尝试编译它，我得到： SYSTEM::%FIND-PACKAGE: There is no package with name "COMMON-GRAPHICS-USER" 我非常新的口齿不清，所以我一直在寻找一个解决方案，但我没有发现。 clisp在哪里找这个包？我该如何添

-2热度

1回答

消除所有后续号码口齿不清

我是新来口齿不清，我遇到了我的家庭作业，要求消除所有的后续数字只有第一个号码将在列表中的问题例如(1 1 2 1 3 1 1 1)将(1 2 1 3 1) 我的代码是： ;the input is (1 1 2 1 3 1 1 1) (defun eli(x) ; this condition will check if x is empty or has only one elem

0热度

1回答

在列表中计数1 2的Lisp函数

该函数的用途是使用lisp计算列表中12的出现次数。的代码，我写道： (defun count12 (x) (if (null x) 0 (if (and (= 1 (car x)) (= 2 (cadr x))) (+ 1 (count12 (cdr x))) (+ 0 (count12 (cdr x))) ) ) )

2热度

1回答

R5RS中的号码分区

我在实习面试中被问到做了一个创建函数的R5RS程序，我们假设有两个子集。这个函数必须返回#t，如果列表L包含两个元素总数相等且元素个数相同的子集，否则返回#f。它需要输入列表L（只有正数）和一些参数（我认为有用，没有参数数量的条件），所有参数在开始时都等于0。我仍然记得的要求如下： - 不要定义其他函数并在“two-subsets”函数中调用它们。 - 它只能使用下面的结构：null ?, co

1热度

2回答

LISP：谓词作为参数

我想要谓词作为函数的参数。 (DEFUN per (F L) (cond ((F L) 'working) (T 'anything))) (per 'numberp 3) 因为导致它提出了一个错误： Undefined operator F in form (F L).

1热度

3回答

lisp中的分配函数合并两个列表

我试图在lisp中创建一个函数，它接收两个列表并将它们的值分布到一个新列表中。我需要获取第一个列表的值并应用于第二个列表中的每个元素。例如： (funcA '("A" "B" "C") '("D" "E" "F")) ，并返回这样的事情： ((("A" "B" "C") . "D") (("A" "B" "C") . "E") (("A" "B" "C") . "F")) 的事情是：

0热度

1回答

lisp中以下语句的内存布局图是什么？

我不知道如何绘制内存布局，我是新来的lisp。请帮助我。 (car (cdr (cdr '(12 (*3 4) (+ 3 4) (/4 2) 23))))

1热度

1回答

在lisp中创建与incf等效的宏函数

我刚开始学习宏函数的概念。我的老师要求我们创建一个宏函数，其功能与incf完全一样。这是他给了我们对流行 (defmacro mypop (nom) (list 'prog1 (list 'car nom) (list 'setq nom (list 'cdr nom)))) 这里是我想变成一个宏观的常规功能的例子： (defun iincf (elem &optional nu

-3热度

1回答

common lisp - 在列表中替换相同的值

我在lisp编程中很新，所以也许这是一个愚蠢的问题，但无论如何，我有一个数字列表（6000 6100 6200 6200 7200等），我想查找和替换第二个相同的值（将1200加到第二个相同的值），所以结果应该是（6000 6100 6200 7400 7200）。你能帮助我吗？非常感谢你。

1热度

1回答

获取列表中的第N个元素作为列表而不是LISP中的数字？

比方说，你有 (setq list '(1 2 3 4 5)) 采用第N返回的第一个元素时，结果是一个数字： (nth 0 list) Result: 1 是有办法得到的结果回为一个列表或转换结果列出？如： Result: (1)