diff options
-rw-r--r-- | src/Main.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Main.hs b/src/Main.hs index 0da1b8f..e6ed4e2 100644 --- a/src/Main.hs +++ b/src/Main.hs | |||
@@ -2,11 +2,11 @@ | |||
2 | 2 | ||
3 | module Main where | 3 | module Main where |
4 | 4 | ||
5 | import Data.List | 5 | import Data.List |
6 | import Data.Matrix | 6 | import Data.Matrix |
7 | import Data.String | 7 | import Data.String |
8 | import System.Environment | 8 | import System.Environment |
9 | import System.IO | 9 | import System.IO |
10 | 10 | ||
11 | main :: IO () | 11 | main :: IO () |
12 | main = do | 12 | main = do |
@@ -17,7 +17,7 @@ main = do | |||
17 | data Square = O | X | Qu deriving (Show, Eq) | 17 | data Square = O | X | Qu deriving (Show, Eq) |
18 | 18 | ||
19 | solve :: (Eq t, Num t) => t -> [Matrix Square] | 19 | solve :: (Eq t, Num t) => t -> [Matrix Square] |
20 | solve n = solveN n | 20 | solve n = nub $ solveN n |
21 | where | 21 | where |
22 | solveN 1 = solve [initBoard] | 22 | solveN 1 = solve [initBoard] |
23 | solveN x = solve (solveN (x-1)) | 23 | solveN x = solve (solveN (x-1)) |