虽然我被介绍到世界的发展，通过棱镜，即LISP的原因非常不同，我很快就认识到，并尊重了智慧李好心提供。。。你真的是你所选择的技艺的大师，我真诚地祝愿你一切顺利。
事实上，我从未试图将LISP掌握到您经常轻松演示的程度，但是，我不会成为。我今天是网的开发者，在我考虑这么短的时间内，如果我不认识你，李。。。为此，我感谢你们。
干杯 如果约翰·麦卡锡还活着，他会感到骄傲或没有安全感。
李，来吧。。写一本书。。。这将是一本畅销书！ 听，听
@萨米福克斯
为了真正模拟vl very函数，无论列表的长度是否相等，代码都应计算为T或nil。如LM的样本代码所示。否则，坚持使用同等功能。代码的另一个问题是，您只能看到最后一次求值的值，因此，如果另一个列表是“（0 1 4），则“（1 2 4）将求值为T）。
现在，作为家庭作业，了解如何使现有代码在我上面提到的两种条件下工作。
如果你需要帮助，就喊一声
@布兰登
谢谢你的盛情介绍 当之无愧
(setq
st1 '(1 2 3 4)
st2 '(1 2 3)
)
(while (and (car st1)(carst2 )(equal (car st1) (car st2)))
(setq st1 (cdr st1) st2 (cdr st2))
T
)
(vl-every '= (setq
st1 '(1 2 2)
st2 '(1 2 3)
))
你说BlackBox真是太好了，我很高兴成为能够激励你继续学习编程的人之一。现在你们已经成功地进入了一个更强大的世界。网，你会把我这样的Lisp程序的人留在尘土里。。。！
要是我有时间就好了！
这几乎与LM的《every3》相同，但缺少了关键部分，因此仍然没有找到Samifox，这。。
(setqst1 '(1 2 3 4) st2 '(1 1 3))
仍将评估为T。
不要使用完全不同的方法。我需要你做的是在第一篇文章中修改代码。我鼓励你这么做，这样你就可以调试你的代码，并有一个“哈哈”的时刻，而不是放弃这个想法，并转移到另一个。并不是说这有什么问题，我只是说，完成你开始的，然后继续另一个解决方案。
李，你在说什么？如果你能回到tmie，你就开始努力了。网络？ 另一个
测试功能。
10 小心
（vl每'='（1 2 3）'（1 2 3 4））
T
（EVERY-P’（1 2 3）'（1 2 3 4））
无
页:
1
[2]