From ba07f3549313ad470fe2de9e0cac72556afb8046 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Thu, 30 May 2019 13:06:39 -0400 Subject: ignore .stack-work --- .stack-work/intero/intero4078i3Z-STAGING.hs | 55 ----------------------------- 1 file changed, 55 deletions(-) delete mode 100644 .stack-work/intero/intero4078i3Z-STAGING.hs (limited to '.stack-work/intero/intero4078i3Z-STAGING.hs') diff --git a/.stack-work/intero/intero4078i3Z-STAGING.hs b/.stack-work/intero/intero4078i3Z-STAGING.hs deleted file mode 100644 index 15be3ec..0000000 --- a/.stack-work/intero/intero4078i3Z-STAGING.hs +++ /dev/null @@ -1,55 +0,0 @@ -module Main where - -import Control.Lens -import Linear.V2 -import Linear.V3 -import Data.Matrix -import System.Random - -data Square = X | Qu | O 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 $ \_ -> O ---avail r c b = - ---rowOccupied r b = any (== Q) $ getRow r b -placeQueen r c b = board - where - fX = (\ _ -> X) - rowAttacked = mapRow fX r - colAttacked = mapCol fx c - queen = setElem Qu (r,c) b - ---placeAll = repeat 8 placeQueen - -winnable = undefined - -nextOpen board = - -solve = - --- 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