如何修改这个“make-matrix”函数？

【问题标题】：How to modify this "make-matrix" function?如何修改这个“make-matrix”函数？
【发布时间】：2013-11-09 19:53:48
【问题描述】：

嗯，有缺陷的功能如下：

(defun make-matrix (n)
  (make-array (n n) :initial-element 0))

我想用(make-matrix 8)之类的函数来替换更长的(make-array '(8 8) :initial-element 0)，但是CLISP说(n n)有问题，因为n不是一个定义的函数。这个make-matrix函数怎么写？

【问题讨论】：

【解决方案1】：

您尝试使用(n n)，但这是使用参数n 调用名为n 的函数的Lisp 语法。你应该像这样调用make-array：

(make-array (list n n) :initial-element 0)

【讨论】：