18 lines
487 B
Text
18 lines
487 B
Text
|
to try :files :diag1 :diag2 :tried
|
||
|
|
if :files = 0 [make "solutions :solutions+1 show :tried stop]
|
||
|
|
localmake "safe (bitand :files :diag1 :diag2)
|
||
|
|
until [:safe = 0] [
|
||
|
|
localmake "f bitnot bitand :safe minus :safe
|
||
|
|
try bitand :files :f ashift bitand :diag1 :f -1 (ashift bitand :diag2 :f 1)+1 fput bitnot :f :tried
|
||
|
|
localmake "safe bitand :safe :safe-1
|
||
|
|
]
|
||
|
|
end
|
||
|
|
|
||
|
|
to queens :n
|
||
|
|
make "solutions 0
|
||
|
|
try (lshift 1 :n)-1 -1 -1 []
|
||
|
|
output :solutions
|
||
|
|
end
|
||
|
|
|
||
|
|
print queens 8 ; 92
|