#lang debug racket
(require sugar/debug "hacs.rkt")

(current-inference forward-check)
(current-select-variable mrv)
(current-order-values shuffle)
(current-shuffle #true)

;; queens problem
;; place queens on chessboard so they do not intersect
(define queens (make-csp))
(define qs (for/list ([q 10]) (string->symbol (format "q~a" q))))
(define rows (range (length qs)))
(add-vars! queens qs rows)
(define (q-col q) (string->number (string-trim (symbol->string q) "q")))
(for* ([qs (in-combinations qs 2)])
      (match-define (list qa qb) qs)
      (match-define (list qa-col qb-col) (map q-col qs))
      (add-constraint! queens
                       (λ (qa-row qb-row)
                         (nor
                          (= (abs (- qa-row qb-row)) (abs (- qa-col qb-col))) ; same diagonal?
                          (= qa-row qb-row))) ; same row?
                       (list qa qb)))

#;(time-named (solve queens))
(parameterize ([current-solver min-conflicts])
  (time-named (solve queens)))