back up next


output = concat [c:shownum r++" "|(c,r)<-zip2 "rnbqkbnr" soln]
soln = until full extend emptyboard
extend board = until safe alter (addqueen board)
addqueen board = 1:board
emptyboard = []
full board = # board=8
alter (q:board) = q+1:board,   if q<8
                = alter board, otherwise ||backtrack
safe (q:board) = and [~checks q board i|i<-index board]
checks q board i = q=board!i \/ abs(q-board!i)=i+1

This finds one solution to the eight queens problem, using a different method from that of the previous script, "queens.m". To run it, say

This time the backtracking is programmed explicitly

Miranda home