10 lines
251 B
Text
10 lines
251 B
Text
import Prelude;
|
|
|
|
public set[list[int]] Nqueens(int n){
|
|
cols = upTill(n);
|
|
result = {};
|
|
for (vector <- permutations(cols)){
|
|
if (n == size({vector[j] + j |j <- cols}) && n == size({vector[j] - j |j <- cols}))
|
|
result += vector;}
|
|
return result;
|
|
}
|