Blob

Date:
Message:
Import sources
Actions:
History | Blame | Raw File
1 (flatmap

2  (lambda (new-row)

3    (map (lambda (rest-of-queens)

4 	  (adjoin-position new-row k rest-of-queens))

5 	(queen-cols (- k 1))))

6  (enumerate-interval 1 board-size))