文档章节

【SICP练习】71 练习2.42

NoMasp
 NoMasp
发布于 2015/09/08 21:51
字数 358
阅读 0
收藏 0


练习2.42

这道题曾经在C#中写过,但是写出来的代码却没有Lisp中的朴素。用了一大堆的数组和for循环。但是在这里,用carcdr来构造就行了。

我们按书中给出的步骤来一步一步求解这个问题。首先是棋局,就按书上的示意图,从上往下的来排皇后的位置。诸如此时书中皇后的位置为:’(6 3 1 7 5 8 2 4)

然后就是过程adjoin-positionrest-of-queens是在前k-1列放置k-1个皇后的一种方式,new-row是在第k列放置所考虑的编号。因此这一过程定义为:

(define (adjoin-position k new-rowrest-of-queens)

   (cons new-row rest-of-queens))

因为书上出现了k,我们就象征性的将k作为一个参数好了。像这种一行的代码在前面遇见过很多次了。cons就代表则构造了吧。

空棋盘则用‘()表示。因此定义如下:

(define empty-board ‘())

接下来就是这道题中的关键了,safe?。看到棋局的样子不用想也知道用迭代了吧。

(define (safe? k position)

   (define (safe?-iter row-of-new-queen rest-of-queens i)

        (if (null? rest-of-queens)

            #t

             (let ((row-of-current-queen (carrest-of-queens)))

                (if (or (= row-of-new-queenrow-of-current-queen)

                      (= row-of-new-queen (-row-of-current-queen i))

                      (= row-of-new-queen (+row-of-current-queen i)))

                    #t

                    (safe?-iter row-of-new-queen (cdrrest-of-queens) (+ i 1))))))

   (safe?-iter (car position) (cdr position) 1))

版权声明:本文为 NoMasp柯于旺 原创文章,未经许可严禁转载!欢迎访问我的博客:http://blog.csdn.net/nomasp

本文转载自:http://blog.csdn.net/nomasp/article/details/43907433

NoMasp
粉丝 7
博文 334
码字总数 0
作品 0
镇江
程序员
私信 提问
加载中

评论(0)

SICP 2.40 2.41 2.42 2.43

2.40

代码强国
2016/08/17
30
0
KeePass 2.42 稳定版发布,密码管理工具

KeePass 2.42 发布了,KeePass 是一款密码管理工具,它能帮你记住电子邮件、主页 FTP、论坛等用户名和密码,免去烦恼,节省时间。它把密码保存在高度加密的数据库中,不让其他人和其他应用程...

xplanet
2019/05/06
1.7K
6
2017/1/20工作小结

1.质监局门户 新需求修改 数据分析 2.42服务器收拾

并不是
2017/01/20
1
0
Snapcraft 2.42 发布,Linux 软件包管理工具

Snapcraft 2.42 发布,此次更新带来了核心模块与插件等方面的性能/功能增强与 bug 修复。 更新: 多通道 cleanbuild 支持。 当使用覆盖构建时,dotnet 插件现在可以用来覆盖插件逻辑。 elf:...

h4cd
2018/04/29
460
1
2.42 循环结构for语句的练习水仙花数

/*需求:在控制台输出所有的”水仙花数” 分析:所谓的水仙花数是指一个三位数,其各位数字的立方和等于该数本身。举例:153就是一个水仙花数。153 = 111 + 555 + 333 = 1 + 125 + 27 = 153 ...

msirene
2015/08/27
28
0

没有更多内容

加载失败,请刷新页面

加载更多

1.4掌握日志工具的使用——Android第一行代码(第二版)笔记

Android中的日志工具类是Log(android.util.Log),这个类中提供了如下5个方法来供我们打印日志。 Log.v():用于打印那些最为琐碎的、意义最小的日志信息。对应级别verbose,是Android日志里面...

Cy23
15分钟前
33
0
System.currentTimeMillis和System.nanoTime

精度与 精确 我想知道的是在更新对象在游戏中的位置时应该使用System.currentTimeMillis()还是System.nanoTime() ? 他们的运动变化与自上次通话以来经过的时间成正比,我想尽可能地精确...

javail
21分钟前
29
0
Linux就该这么学 -- 命令 - man

man命令用于查看某个命令的帮助信息 格式:man 命令名称 man man 表示查询man命令本身的帮助信息 man ls 表示查询ls命令的帮助信息 由于命令查询出来的内容一般都比较多,所以要了解相关的组...

jionzhao
23分钟前
15
0
Bmob后端云(云数据库表的具体操作)

1.注册创建应用请看该博客 Bomb基本操作 2.创建云数据库表 2.1 步骤一: 点击添加表 2.2 步骤二: 填写表信息 2.3 表结构详解 3. 操作表 3.1 添加一个表字段 3.1.1 步骤一: 点击添加列 3.1.2 ...

漫路h
24分钟前
23
0
Spring Bean的生命周期?

Spring Bean的生命周期简单易懂。在一个bean实例被初始化时,需要执行一系列的初始化操作以达到可用的状态。同样的,当一个bean不在被调用时需要进行相关的析构操作,并从bean容器中移除。 ...

无名氏的程序员
25分钟前
44
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部