From 1b1866d0bc0e06eecafb1c46d4ead629a7ae20be Mon Sep 17 00:00:00 2001
From: Steven <steven.vasilogianis@gmail.com>
Date: Mon, 3 Jun 2019 01:11:54 -0400
Subject: Forgot to nub duplicate solutions

---
 src/Main.hs | 12 ++++++------
 1 file 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 @@
 
 module Main where
 
-import Data.List
-import Data.Matrix
-import Data.String
-import System.Environment
-import System.IO
+import           Data.List
+import           Data.Matrix
+import           Data.String
+import           System.Environment
+import           System.IO
 
 main :: IO ()
 main = do
@@ -17,7 +17,7 @@ main = do
 data Square = O | X | Qu deriving (Show, Eq)
 
 solve :: (Eq t, Num t) => t -> [Matrix Square]
-solve n = solveN n
+solve n = nub $ solveN n
   where
     solveN 1 = solve [initBoard]
     solveN x = solve (solveN (x-1))
-- 
cgit v1.2.3