- Commit
- 364f3869791e00048bb41663581f98331bff34e6
- Parent
- 637f5d917cfea52e68099b9275e3a349a1a7ec5c
- Author
- Pablo Escobar Gaviria <gark.garcia@protonmail.com>
- Date
Cleaned the Haskell implementation.
An exercise on polyglossy: the same problem solved on multiple languages
Cleaned the Haskell implementation.
2 files changed, 5 insertions, 1 deletion
Status | File Name | N° Changes | Insertions | Deletions |
Modified | .gitignore | 3 | 3 | 0 |
Modified | Haskell/Main.hs | 3 | 2 | 1 |
diff --git a/.gitignore b/.gitignore @@ -7,6 +7,9 @@ bin build *.un~ +*.swp +*.o +*.hi extra.pl Latex Cuda
diff --git a/Haskell/Main.hs b/Haskell/Main.hs @@ -10,7 +10,7 @@ import Numeric.Natural import System.Environment import System.Exit import Control.Monad (foldM) -import Data.Vector (Vector, unsafeIndex, generate, (!)) +import Data.Vector (Vector, unsafeIndex, generate) main :: IO Int main = do @@ -19,6 +19,7 @@ main = do case readDec <$> head' args of Just [(max, "")] -> if counterexempl max then exitFailure else exitSuccess + _ -> exitInvalidInput where head' [] = Nothing