blob: e8020ed95d06c34cde76c6c6082011c93c18232c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module EightQueens
(
main
) where
--import Linear.Vector
import Linear.V2
--import Linear.V3
import Control.Lens
data Square = X | Q
board = V2 <$> [0..8] <*> [0..8]
--board = V3 <$> [0..8] <*> [0..8] <*> [X]
row p = undefined
main = undefined
--main = repeat 8 placeQueen $ board
|