方案三，交换，即使是一个列表

Question

(thirds '(a b c d e f g))应该返回：(a d g);

(thirds '((a b) c (d e f) g (h i)))应该返回((a b) g))

(thirds '())应返回空列表;

第二个功能是SWAP

第三个功能是EVENATOM

Answer 1

似乎所有这些功能都是其他人的任务的一部分，如果你花时间搜索它们，有几个答案。免责声明：我会链接自己的解决方案，但也有其他解决方案，同样好。

• thirds程序已定义为here
• swap程序已定义为here
• evenatom程序为here