0. ;; Without file I/O
1.  
2. ; Board -> [Board | #f]
3. ;
4. ; Solve the Sudoku board `board` and return the solved board. If the board
5. ; can't be solved, return `#f`.
6. (define (solve-board board)
7.   (unless (board-valid? board)
8.     (raise-argument-error
9.       'board
10.       (format "valid board")
11.       (board->string board)))
12.   (define start-time (current-inexact-milliseconds))
13.   (define guesses-count 0)
14.   ; We can have at most as many recursion levels as there are cells on the
15.   ; board.
16.   (define recursion-stats (make-vector BOARD-SIZE 0))
17.   (define result-board
18.     (let solve-board-iter ([board board]
19.                            [recursion-level 1])
20.       (define next-index (next-index-for-empty-cell board))
21.       (cond
22.         [(eq? next-index #f)
23.          ; Board complete
24.          board]
25.         [else
26.          (vector-set!
27.            recursion-stats
28.            recursion-level
29.            (add1 (vector-ref recursion-stats recursion-level)))
30.          ; Try to solve the board with numbers 1-9 at the missing index.
31.          (define new-candidate-board (board-copy board))
32.          (for/or ([guess (in-range 1 (add1 9))])
33.            (set! guesses-count (add1 guesses-count))
34.            (board-set! new-candidate-board next-index guess)
35.            (define board-valid? (index-valid? new-candidate-board next-index))
36.            (if board-valid?
37.                (solve-board-iter new-candidate-board (add1 recursion-level))
38.                #f))])))
39.   (Solver-Result
40.     result-board
41.     (- (current-inexact-milliseconds) start-time)
42.     guesses-count
43.     recursion-stats))
44.  
45. ;; Current WIP version with file I/O
46.  
47. ; Board -> [Board | #f]
48. ;
49. ; Solve the Sudoku board `board` and return the solved board. If the board
50. ; can't be solved, return `#f`.
51. (define (solve-board board)
52.   (unless (board-valid? board)
53.     (raise-argument-error
54.       'board
55.       (format "valid board")
56.       (board->string board)))
57.   (define start-time (current-inexact-milliseconds))
58.   (define guesses-count 0)
59.   ; We can have at most as many recursion levels as there are cells on the
60.   ; board.
61.   (define recursion-stats (make-vector BOARD-SIZE 0))
62.   (define result-board
63.     (with-output-to-file
64.       "solver-data.txt" #:exists 'truncate #:mode 'text
65.       (thunk
66.         (displayln "# recursion level, index, guess")
67.         (let solve-board-iter ([board board]
68.                                [recursion-level 1])
69.           (define next-index (next-index-for-empty-cell board))
70.           (cond
71.             [(eq? next-index #f)
72.              ; Board complete
73.              board]
74.             [else
75.              (vector-set!
76.                recursion-stats
77.                recursion-level
78.                (add1 (vector-ref recursion-stats recursion-level)))
79.              ; Try to solve the board with numbers 1-9 at the missing index.
80.              (define new-candidate-board (board-copy board))
81.              (for/or ([guess (in-range 1 (add1 9))])
82.                (displayln (format "~a,~a,~a" recursion-level next-index guess))
83.                (set! guesses-count (add1 guesses-count))
84.                (board-set! new-candidate-board next-index guess)
85.                (define board-valid? (index-valid? new-candidate-board next-index))
86.                (if board-valid?
87.                    (solve-board-iter new-candidate-board (add1 recursion-level))
88.                    #f))])))))
89.   (Solver-Result
90.     result-board
91.     (- (current-inexact-milliseconds) start-time)
92.     guesses-count
93.     recursion-stats))

=>

load-handler: expected a `module` declaration in "paste 40341", but found something else

Check that paste includes #lang?