Question

我的递归调用似乎不起作用，我试图用一个整数给一个三角形，在你们的帮助下，我终于能够使该字符串在同一行上打印正确的时间， 1行。在打印该行的末尾，我有一个递归调用，它调用三角形以使另一行短一个字符。由于某种原因，似乎无法接通该电话。请找到下面的代码，在此先感谢大家提供的所有帮助，我们将不胜感激！

注意：附带说明一下，有什么方法可以停止Lisp中类似于return语句的功能？我希望递归在k = 1处停止，而不要在k = 0处继续。

(defun newTriangle (k) 
    (cond ((<= k 0) (princ '(Nope))) 
          ((or (= k 1) (= k -1)) (princ 'a)) 
          ((> k 0) (make-string k :initial-element #\a)) 
          (newTriangle (- k 1))))
        
(print (newTriangle 3))

样本输出三角形（3）

aaa 
aa 
a

样本输出三角形（-3）

aaa 
 aa 
  a

Answer 1

首先，您需要准确确定newTriangle在做什么。调用(print (newTriangle 3))建议newTriangle返回一个 string ，然后通过对print的调用将其打印出来。但是，newTriangle的OP定义既是打印输出，又是将三角形的单行作为字符串返回。

从未到达对newTriangle的递归调用，因为在到达此行之前，已耗尽k值的所有可能情况。由于k只能小于零，等于零或大于零，并且由于所有这些情况在到达递归调用之前都经过测试，因此永远不会达到。另请注意，对于cond语句的最后部分，OP代码的语法错误。 cond分支中的第一个表达式是一个测试，惯例是在此处使用t表示一个分支，如果到达则将始终对其进行评估。但是，这里不需要这么多情况。

假设newTriangle函数不应返回字符串，而应将三角形打印为副作用，该怎么办？如果输入数字大于0，则应打印一行字符数等于该输入数字的行，然后以输入数字减1进行调用。否则它什么都不做：

(defun print-triangle (k)
  (when (> k 0)
    (princ (make-string k :initial-element #\a))
    (terpri)
    (print-triangle (- k 1))))

此定义的名称为print-triangle，以强调它会打印一个三角形作为副作用，并且因为kebab-case在Lisps中是惯用的，而camelCase不是。请注意，每次使用大于零的输入来调用print-triangle时，都会 printed 正确长度的字符串，然后打印换行符（名称模糊不清的{{1} }，它只是将换行符写入当前输出流），然后再次调用terpri，将print-triangle减小1。

示例REPL交互：

如果目标不是返回字符串，则一种方法是调用一个将结果保留在参数中的辅助函数：

CL-USER> (print-triangle 3)
aaa
aa
a
NIL

在这里，(defun new-triangle (k) (build-triangle k "")) (defun build-triangle (k result) (if (> k 0) (build-triangle (- k 1) (concatenate 'string result (make-string k :initial-element #\a) (string #\newline))) result))接受一个整数参数，然后调用new-triangle，在build-triangle位置传递整数参数和一个空字符串。 result函数的操作与之前的build-triangle几乎相同，但是它们不是打印行，而是与print-triangle以及包含换行符的字符串连接在一起。 result完成后，build-triangle字符串返回到result。请注意，只需简单地从REPL调用new-triangle就可以将结果字符串作为数据打印出来（即带引号）；在new-triangle的结果上调用print会将字符串作为数据打印，并返回该字符串。要查看打印的带引号的字符串，可以使用new-triangle；或者您可以使用format来打印不带引号的字符串，并返回字符串本身：

princ

LISP递归三角形

1 个答案: