12 lines
284 B
Text
12 lines
284 B
Text
solution[board] :=
|
|
{
|
|
for q = 0 to length[board] - 1
|
|
for c = q+1 to length[board] - 1
|
|
if board@q == board@c + (c - q) or board@q == board@c - (c - q)
|
|
return false
|
|
true
|
|
}
|
|
|
|
for b = array[1 to 8].permute[]
|
|
if solution[b]
|
|
println[b]
|