编写一个以数字作为参数并构造列表的函数

Question

我开始学习LISP，我有一个问题需要你的帮助。

  

编写一个函数NEW-LIST，它以一个数字作为参数，并构造一个包含所有T的长度列表。

这是我的尝试，但它不起作用。你能帮我解决一下吗？

(defun same-length (x) 
  (make-list x:initial-element 't))

提前致谢。

Answer 1

你几乎就在那里：

* (defun make-t (size)
 (make-list size :initial-element T))

MAKE-T
* (make-t 10)

(T T T T T T T T T T)
*

:initial-element是关键字参数，有关详细信息，请参阅functions of common lisp。有关更多信息和示例，请参阅doc of make-list。