无法理解错误

nila_joy · 发表于 2022-7-6 08:41:28

你好正如我之前所说，我是LISP的初学者，试图写一些东西，但会出错。。“错误：输入列表格式错误”。这意味着什么？

我有一个列表：-（（（1.x）（2.y））（（3.z）（4.a））（（1.m）（2.n））（（3.o）（4.p（））））

我希望它是：-（（x y）（z a））（（m n）（o p）））

（defun test1（）
（setq gb’（（（（1.x）（2.y））（（3.z）（4.a））（（（1.m）（2.n））（（3.o）（4.p （）））））

（setq blanka’（））

（setq blankb’（））

（setq len1（长度gb））

（setq count1 0）

（虽然(

（setq data1（第n个count1 gb））

（setq len2（长度数据1）

（setq count2 0）

（而（
（setq data2（第n计数2 data1））

（setq blankb（追加blankb（列表数据2）））

（setq count2（1+count2））

) ; 虽然

（setq blanka（追加blanka（列表数据1）））

（setq count1（1+count2））

) ;虽然

)

resullins · 发表于 2022-7-6 08:52:33

这意味着你的括号不匹配。开括号数必须与闭括号数相同。这就是为什么LISP代表“迷失在愚蠢的括号中”

此外，你是新来的，所以你可以通过，但你需要将你的帖子中的任何和所有代码包装在代码标签中（看起来像磅符号的按钮）。

copy

Then your code will look like this.

nila_joy · 发表于 2022-7-6 08:53:53

很抱歉我不知道标记过程。。我如何使用代码标签？

Lee Mac · 发表于 2022-7-6 09:02:24

也许这个疑难解答将来会帮助你。

此外，如resullins所述，将代码包含在代码标记中：

[noparse]

copy

[/noparse][/color][color=darkgreen]Your code here[/color][color=red][noparse]

[/noparse]

SLW210 · 发表于 2022-7-6 09:06:14

代码发布指南

resullins · 发表于 2022-7-6 09:15:50

@nila_joy：不要关注SLW210。。。他真的很讨厌那些不守规矩的人！

现在，你知道下一次！

nila_joy · 发表于 2022-7-6 09:18:15

你好正如我之前所说，我是LISP的初学者，试图写一些东西，但会出错。。“错误：输入列表格式错误”。这意味着什么？

我有一个列表：-（（（1.x）（2.y））（（3.z）（4.a））（（1.m）（2.n））（（3.o）（4.p（））））

我希望它是：-（（x y）（z a））（（m n）（o p）））

copy

(defun test1 ()
 (setq gb '((((1 . x ) (2 . y)) ((3 . z) (4 . a))) (((1 . m ) (2 . n)) ((3 . o) (4 . p)))))
(setq blanka '())
(setq blankb '())
(setq len1 (length gb))
(setq count1 0)
(while (< count1 len1)
(setq data1 (nth count1 gb))
(setq len2 (length data1)
(setq count2 0)
(while (<count2 len2)
(setq data2 (nth count2 data1))
(setq blankb (append blankb (list data2)))
(setq count2 (1+ count2))
) ; while
(setq blanka (append blanka (list data1)))
(setq count1 (1+ count2))
) ;while
 )

nila_joy · 发表于 2022-7-6 09:23:46

哈哈，我正要发这个：

copy


(setq l '((((1 . x ) (2 . y)) ((3 . z) (4 . a))) (((1 . m ) (2 . n)) ((3 . o) (4 . p)))))
(mapcar
   (function
       (lambda ( a )
           (mapcar
               (function
                   (lambda ( b ) (mapcar 'cdr b))
               )
               a
           )
       )
   )
   l
)

Lee Mac · 发表于 2022-7-6 09:33:06

Thnx结果。。“SLW最后的英雄”受到监视，但我该如何纠正我的错误？

alanjt · 发表于 2022-7-6 09:38:44

[编程交流] 无法理解错误

发表回复

精选推荐