无法理解错误
你好正如我之前所说,我是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))
) ;虽然
)
这意味着你的括号不匹配。开括号数必须与闭括号数相同。这就是为什么LISP代表“迷失在愚蠢的括号中”
此外,你是新来的,所以你可以通过,但你需要将你的帖子中的任何和所有代码包装在代码标签中(看起来像磅符号的按钮)。
Then your code will look like this. 很抱歉我不知道标记过程。。我如何使用代码标签? 也许这个疑难解答将来会帮助你。
此外,如resullins所述,将代码包含在代码标记中:
Your code here
代码发布指南 @nila_joy:不要关注SLW210。。。他真的很讨厌那些不守规矩的人!
现在,你知道下一次! 你好正如我之前所说,我是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 (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
) 哈哈,我正要发这个:
(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
) Thnx结果。。“SLW最后的英雄”受到监视,但我该如何纠正我的错误?
页:
[1]
2