Initial repository; needs clean up but it's working so let's not lose it

1 files changed, 18 insertions, 0 deletions

diff --git a/src/8queens.hs b/src/8queens.hs
new file mode 100644
index 0000000..e8020ed
--- /dev/null
+++ b/src/8queens.hs
@@ -0,0 +1,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