小编men*_*ndy的帖子

我在Lisp中打印一个数字三角形,我想确保调用该函数时的输入是一个整数.如果是字符串或小数,则应返回不接受输入的消息.这是我的数字代码.

(defun nested-loop (n)
  (loop for i from 1 to n doing
  (loop for j from 1 to i collecting
    (progn
      (prin1 j)))
   (format t "~%")))

(nested-loop 5)