vl每

BlackBox · 发表于 2022-7-5 20:47:05

哦！一股潮流。。。。

虽然我被介绍到世界的发展，通过棱镜，即LISP的原因非常不同，我很快就认识到，并尊重了智慧李好心提供。。。你真的是你所选择的技艺的大师，我真诚地祝愿你一切顺利。

事实上，我从未试图将LISP掌握到您经常轻松演示的程度，但是，我不会成为。我今天是网的开发者，在我考虑这么短的时间内，如果我不认识你，李。。。为此，我感谢你们。

干杯

samifox · 发表于 2022-7-5 20:48:27

如果约翰·麦卡锡还活着，他会感到骄傲或没有安全感。
李，来吧。。写一本书。。。这将是一本畅销书！

pBe · 发表于 2022-7-5 20:51:42

听，听

@萨米福克斯

为了真正模拟vl very函数，无论列表的长度是否相等，代码都应计算为T或nil。如LM的样本代码所示。否则，坚持使用同等功能。代码的另一个问题是，您只能看到最后一次求值的值，因此，如果另一个列表是“（0 1 4），则“（1 2 4）将求值为T）。

现在，作为家庭作业，了解如何使现有代码在我上面提到的两种条件下工作。

如果你需要帮助，就喊一声

@布兰登

谢谢你的盛情介绍

Bhull1985 · 发表于 2022-7-5 20:54:11

当之无愧

samifox · 发表于 2022-7-5 20:58:21

copy

(setq
   st1 '(1 2 3 4)
   st2 '(1 2 3)
   
 )
(while (and (car st1)(car  st2 )(equal (car st1) (car st2)))
 (setq st1 (cdr st1) st2 (cdr st2))
 T
 )
 (vl-every '= (setq
   st1 '(1 2 2)
   st2 '(1 2 3)
   
 ))

Lee Mac · 发表于 2022-7-5 21:02:10

你说BlackBox真是太好了，我很高兴成为能够激励你继续学习编程的人之一。现在你们已经成功地进入了一个更强大的世界。网，你会把我这样的Lisp程序的人留在尘土里。。。！

要是我有时间就好了！

pBe · 发表于 2022-7-5 21:05:27

这几乎与LM的《every3》相同，但缺少了关键部分，因此仍然没有找到Samifox，这。。

copy

(setq  st1 '(1 2 3 4)    st2 '(1 1 3)  )

仍将评估为T。

不要使用完全不同的方法。我需要你做的是在第一篇文章中修改代码。我鼓励你这么做，这样你就可以调试你的代码，并有一个“哈哈”的时刻，而不是放弃这个想法，并转移到另一个。并不是说这有什么问题，我只是说，完成你开始的，然后继续另一个解决方案。

samifox · 发表于 2022-7-5 21:09:03

李，你在说什么？如果你能回到tmie，你就开始努力了。网络？

Tharwat · 发表于 2022-7-5 21:11:07

另一个

测试功能。

copy

pBe · 发表于 2022-7-5 21:14:59

小心

（vl每'='（1 2 3）'（1 2 3 4））
T

（EVERY-P’（1 2 3）'（1 2 3 4））
无

[编程交流] vl每

发表回复

精选推荐