RosettaCodeData/Task/N-queens-problem/Zkl/n-queens-problem-2.zkl
2026-02-01 16:33:20 -08:00

8 lines
278 B
Text

N, queens := 4, queensN(N);
println(queens.len()," solution(s):");
foreach s in (queens){
println(s,":");
b = (b := List.createLong(N,"-")).apply(b.copy); // NxN array
s.apply2('wrap([(r,c)]){ b[r - 1][c - 1] = "Q" });
b.apply("concat","").concat("\n").println();
}