sicp每日一题[2.44]

合集 - sicp(77)
1.sicp每日一题[1.42]2.sicp每日一题[1.43]3.sicp每日一题[1.44]4.sicp每日一题[1.45]5.sicp每日一题[1.46]6.sicp每日一题[2.1]7.sicp每日一题[2.2]8.sicp每日一题[2.3]9.sicp每日一题[2.4]10.sicp每日一题[2.5]11.sicp每日一题[2.6]12.sicp每日一题[2.7]13.sicp每日一题[2.8]14.sicp每日一题[2.9]15.sicp每日一题[2.11]16.sicp每日一题[2.10]17.sicp每日一题[2.12]18.sicp每日一题[2.13-2.16]19.sicp每日一题[2.17]20.sicp每日一题[2.18]21.sicp每日一题[2.19]22.sicp每日一题[2.20]23.sicp每日一题[2.21]24.sicp每日一题[2.22-2.23]25.sicp每日一题[2.24-2.27]26.sicp每日一题[2.28]27.sicp每日一题[2.29]28.sicp每日一题[2.30]29.sicp每日一题[2.31]30.sicp每日一题[2.32]31.sicp每日一题[2.33]32.sicp每日一题[2.34]33.sicp每日一题[2.35]34.sicp每日一题[2.36-2.37]35.sicp每日一题[2.38-2.39]36.sicp每日一题[2.40]37.sicp每日一题[2.41]38.sicp每日一题[2.42]39.sicp每日一题[2.43]
40.sicp每日一题[2.44]
41.sicp每日一题[2.45]42.sicp每日一题[2.46]43.sicp每日一题[2.47]44.sicp每日一题[2.48]45.sicp每日一题[2.49]46.sicp每日一题[2.50]47.sicp每日一题[2.51]48.sicp每日一题[2.52]49.sicp每日一题[2.53-2.55]50.sicp每日一题[2.56]51.sicp每日一题[2.57]52.sicp每日一题[2.58]53.sicp每日一题[2.59]54.sicp每日一题[2.60]55.sicp每日一题[2.61]56.sicp每日一题[2.62]57.sicp每日一题[2.63-2.64]58.sicp每日一题[2.65]59.sicp每日一题[2.66]60.sicp每日一题[2.67-2.68]61.sicp每日一题[2.69]62.sicp每日一题[2.70]63.sicp每日一题[2.71]64.sicp每日一题[2.72]65.sicp每日一题[2.73]66.sicp每日一题[2.74]67.sicp每日一题[2.75]68.sicp每日一题[2.76]69.sicp每日一题[2.77]70.sicp每日一题[2.78]71.sicp每日一题[2.79]72.sicp每日一题[2.80]73.sicp每日一题[2.81]74.sicp每日一题[2.82]75.sicp每日一题[2.83]76.sicp每日一题[2.84]77.sicp每日一题[2.85-2.86]
收起

我在这一章遇到了一个大问题，就是书上用的那些函数 beside, wave, flip-vert 我统统用不了。我用的是 DrRacket 这个软件，在网上查了半天，终于找到了解决办法。
首先是官方教程，在 DrRacket 中依次打开 File -> Package Manager...，在弹出的页面中 "Do What I Mean" 菜单页的输入：sicp，回车之后自动安装就行了。
但是我试了好几次，总是因为网络问题没法下载成功，最后求助于 chatgpt 终于解决了。
首先是手动下载 sicp 包到 Racket 安装目录，然后打开 cmd 命令行，输入 raco pkg install ./sicp 即可用本地的 sicp 目录安装包。
安装好之后，重启 DrRacket 软件，依次点击上方菜单栏的 Language -> Choose Language，在弹出的页面中，找到 Teaching Languages(ctl-T) 下选择 SICP(PLaneT 1.18)，点击 OK。
再次回到代码编辑页面后，就不需要开头的 #lang racket 了，直接写代码就行。
还有一点，安装的 sicp 包里也是没有 wave, rogers 的，但是提供了 einstein，所以可以用 (define wave einstein) 替换掉或者把书上所有代码里的 wave 都用 einstein 代替。不过直接在文件里输入 einstein 或者 wave 是看不到图象的，而是以以 #procedure 的形式存在的，需要用 (paint einstein) 显式地调用，这样就可以看到爱神的头像了。

Exercise 2.44

Define the procedure up-split used by corner-split. It is similar to right-split, except that it switches the roles of below and beside.

这道题非常的简单，就像题目所说的那样，只要交换 below 和 beside 的位置就行。

(paint (right-split wave 1))

(define (up-split painter n)
  (if (= n 0)
      painter
      (let ((smaller (up-split painter (- n 1))))
        (below painter (beside smaller smaller)))))

(paint (up-split wave 1))

(define (corner-split painter n)
  (if (= n 0)
      painter
      (let ((up (up-split painter (- n 1)))
            (right (right-split painter (- n 1))))
        (let ((top-left (beside up up))
              (bottom-right (below right right))
              (corner (corner-split painter (- n 1))))
          (beside (below painter top-left)
                  (below bottom-right corner))))))

(paint (corner-split wave 1))
(paint (corner-split wave 2))

效果如下图：



不过这是全新的内容，我觉得最好先理解 below 和 beside 的作用，其实就是字面意思，beside 是把2个图形左右排列，第一个图形在左边；below 是把2个图形上下排列，但是要注意它是把第二个图形放在上面，如下图所示：

(define wave einstein)

(paint (beside wave (below wave wave)))
(paint (below (beside wave wave) wave))


posted @   再思即可  阅读(11)  评论(0)  编辑  收藏  举报
相关博文：
· sicp每日一题[2.45]
· sicp每日一题[2.51]
· APIO2013 T3 Tasksauthor
· NumPy 秘籍中文第二版：1~5
· 高一上七月中旬日记
阅读排行：
· DeepSeek 开源周回顾「GitHub 热点速览」
· 物流快递公司核心技术能力-地址解析分单基础技术分享
· .NET 10首个预览版发布：重大改进与新特性概览！
· AI与.NET技术实操系列（二）：开始使用ML.NET
· 单线程的Redis速度为什么快？
点击右上角即可分享
微信分享提示
AI FOR CODE 大赛