tracks/haskell/exercises/alphametics/examples/success-standard/src/Alphametics.hs in trackler-2.2.1.110 vs tracks/haskell/exercises/alphametics/examples/success-standard/src/Alphametics.hs in trackler-2.2.1.111
- old
+ new
@@ -4,11 +4,11 @@
import Control.Monad (guard)
import Data.Functor (($>))
import Data.List (foldl', find, union)
import Data.Maybe (fromJust, isJust, listToMaybe)
import Prelude hiding (Word)
-import Text.Parsec
-import Text.Parsec.String
+import Text.Parsec ((<|>), char, many1, parse, spaces, string, try, upper)
+import Text.Parsec.String (Parser)
type Solution = [(Char, Int)]
solve :: String -> Maybe Solution
solve puzzle = do