0. #lang racket
1.  
2. (define board (build-vector 8 (lambda (n)
3.                                 (build-vector 8 (lambda (k)
4.                                                   (+ (* 8 n) k))))))
5.  
6. (define (board-ref row column)
7.   (vector-ref (vector-ref board row) column))
8.  
9. (define (column n)
10.   (map (lambda (k)
11.          (board-ref k n))
12.        (range 8)))
13.  
14. (define (row n)
15.   (map (lambda (k)
16.          (board-ref n k))
17.        (range 8)))
18.  
19. (row 0)
20. (row 1)
21.  
22. (column 0)
23. (column 1)

=>

'(0 1 2 3 4 5 6 7)

'(8 9 10 11 12 13 14 15)

'(0 8 16 24 32 40 48 56)

'(1 9 17 25 33 41 49 57)