LISP递归三角形

如何解决LISP递归三角形

我的递归调用似乎不起作用,我试图用一个整数给一个三角形,在你们的帮助下,我终于能够使该字符串在同一行上打印正确的时间, 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

解决方法

首先,您需要准确确定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交互:

k

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

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

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-