removed unused code
This commit is contained in:
parent
5b353b68a8
commit
794e3eebdd
|
@ -1,11 +1,5 @@
|
||||||
import Data.Char
|
import Data.Char
|
||||||
|
|
||||||
data Entry = MkEntry { min :: Integer
|
|
||||||
, max :: Integer
|
|
||||||
, chr :: Char
|
|
||||||
, pass :: String
|
|
||||||
}
|
|
||||||
|
|
||||||
count x = length . filter ((==) x)
|
count x = length . filter ((==) x)
|
||||||
main = readFile "2" >>= putStrLn . show . length . filter (parse 0 0) . lines
|
main = readFile "2" >>= putStrLn . show . length . filter (parse 0 0) . lines
|
||||||
where valid min max chr pass = let x = count chr pass
|
where valid min max chr pass = let x = count chr pass
|
||||||
|
|
Loading…
Reference in New Issue