From cbe440bb0adbfbccfdbbcedb29bf9408c0596866 Mon Sep 17 00:00:00 2001
From: Steven <steven.vasilogianis@gmail.com>
Date: Wed, 29 May 2019 20:06:05 -0400
Subject: Initial repository; needs clean up but it's working so let's not lose
 it

---
 .stack-work/intero/intero18425meY-STAGING.hs | 46 ++++++++++++++++++++++++++++
 1 file changed, 46 insertions(+)
 create mode 100644 .stack-work/intero/intero18425meY-STAGING.hs

(limited to '.stack-work/intero/intero18425meY-STAGING.hs')

diff --git a/.stack-work/intero/intero18425meY-STAGING.hs b/.stack-work/intero/intero18425meY-STAGING.hs
new file mode 100644
index 0000000..820de4e
--- /dev/null
+++ b/.stack-work/intero/intero18425meY-STAGING.hs
@@ -0,0 +1,46 @@
+module Main where
+
+import Control.Lens
+import Linear.V2
+import Linear.V3
+import Data.Matrix
+import System.Random
+
+data Square = X | Q deriving (Show)
+--board = V3 <$> [0..8] <*> [0..8] <*> [0]
+--board = [(r,c,X) | r <- [0..8], c <- [0..8] ]
+
+lo8 = [0..8] -- list of 8
+initBoard = matrix 8 8 $ \_ -> X
+--avail r c b =
+
+--rowOccupied r b = any (== Q) $ getRow r b
+placeQueen r c b = setElem Q (r,c) b
+
+--placeAll = repeat 8 placeQueen
+
+winnable = undefined
+
+-- placeQueen r c =
+
+--b = getE
+
+--placeQueen r c b = b ^.
+
+-- rand = do
+--   g <- newStdGen
+--   print $ take 8 $ (randomRs (0, 8) g)
+
+
+-- try r c = let next b = placeQueen r c b
+--           in next initBoard
+
+-- try' p = let next b = p b
+--           in next initBoard
+
+
+--res = [ try x y | x <- lo8, y <- lo8 ]
+
+main :: IO ()
+main = do
+  putStrLn "Hi"
-- 
cgit v1.2.3