2 665c255d 2023-08-04 jrmu (lambda (new-row)
3 665c255d 2023-08-04 jrmu (map (lambda (rest-of-queens)
4 665c255d 2023-08-04 jrmu (adjoin-position new-row k rest-of-queens))
5 665c255d 2023-08-04 jrmu (queen-cols (- k 1))))
6 665c255d 2023-08-04 jrmu (enumerate-interval 1 board-size))
