【SICP练习】71 练习2.42
来源:互联网 发布:守望先锋英雄数据 编辑:程序博客网 时间:2024/05/16 09:12
练习2.42
这道题曾经在C#中写过,但是写出来的代码却没有Lisp中的朴素。用了一大堆的数组和for循环。但是在这里,用car、cdr来构造就行了。
我们按书中给出的步骤来一步一步求解这个问题。首先是棋局,就按书上的示意图,从上往下的来排皇后的位置。诸如此时书中皇后的位置为:’(6 3 1 7 5 8 2 4)。
然后就是过程adjoin-position。rest-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))
- 【SICP练习】71 练习2.42
- 【SICP练习】2 练习1.6
- 【SICP练习】3 练习1.7
- 【SICP练习】4 练习1.8
- 【SICP练习】5 练习1.9
- 【SICP练习】6 练习1.10
- 【SICP练习】7 练习1.11
- 【SICP练习】8 练习1.12
- 【SICP练习】9 练习1.15
- 【SICP练习】10 练习1.16
- 【SICP练习】11 练习1.17
- 【SICP练习】12 练习1.18
- 【SICP练习】13 练习1.19
- 【SICP练习】14 练习1.20
- 【SICP练习】15 练习1.21
- 【SICP练习】16 练习1.22
- 【SICP练习】17 练习1.23
- 【SICP练习】18 练习1.24
- 【SICP练习】68 练习2.39
- rails中select不能响应多选的解决办法
- 【SICP练习】69 练习2.40
- 【SICP练习】70 练习2.41
- fhq Treap模板
- 【SICP练习】71 练习2.42
- 【SICP练习】72 练习2.43
- javaweb学习心得(每天写一点,写点自己学习时碰到的不会的东西)
- 【SICP练习】73 练习2.44
- 【SICP练习】74 练习2.45
- 一、在Oracle Linux 6.5(x86_64)上安装Oracle12c
- 【SICP练习】75 练习2.46
- 【SICP练习】76 练习2.47
- 主键冲突