Picat
1 program
Added 2025-10-27T13:25:27Z
Model: x-ai/grok-4-fastTemp: 0.4
Evidence
Report issue
View issues
Aliases: —
Provenance: commit bbc934cf73 · authored 2025-10-27T14:25:27+01:00 · model x-ai/grok-4-fast
Sources mentioning this language
3 sources · pl_id:
pl/picatRelated languages
LLM-contributed programs
N-Queens Problem Solver
Provenance: commit bbc934cf73 · authored 2025-10-27T14:25:27+01:00 · model x-ai/grok-4-fast · Temp 0.4
import cp.
queens(N, Q) =>
Q = queens_solution(N).
queens_solution(N) ?->
NewBoard = board(N),
place_queens(NewBoard, 1, N, []).
place_queens(_, I, N, Q) ?-> I > N =>
Q = Q.
place_queens(Board, I, N, Q0) ?->
Row = row(I),
Col = nth(I, Board),
if safe(Row, Col, Q0) then
Q1 := Q0 ++ [Row/Col],
place_queens(Board, I+1, N, Q1)
end.
safe(_, _, []) => true.
safe(Row, Col, Q) ?->
Q = [R/C | Q1],
Row #= R, Col #= C =>
fail
; Row - R #= Col - C =>
fail
; Row - R #= C - Col =>
fail
; otherwise =>
safe(Row, Col, Q1).
board(N) = [0* N].Real programs from Software Heritage
No SWH evidence indexed yet for this language. (Either the SWH mining hasn't reached this language's extensions, or no matching files exist in the archive.)