26 lines
680 B
Haskell
26 lines
680 B
Haskell
module Lib (readFile', split, count, tRead) where
|
|
|
|
import Data.ByteString qualified as B (readFile)
|
|
import Data.Text (Text)
|
|
import Data.Text.Encoding qualified as T (decodeUtf8)
|
|
import Data.Text.Read qualified as TR
|
|
|
|
-- IO --
|
|
readFile' :: FilePath -> IO Text
|
|
readFile' f = T.decodeUtf8 <$> B.readFile f
|
|
|
|
-- Data.Text --
|
|
tRead :: Text -> Int
|
|
tRead = (\(Right (n, _)) -> n) . TR.signed TR.decimal
|
|
|
|
-- Utility --
|
|
split :: (Eq a) => a -> [a] -> [[a]]
|
|
split delimiter list =
|
|
let (before, after) = break (== delimiter) list
|
|
in before : case after of
|
|
[] -> []
|
|
(_ : xs) -> split delimiter xs
|
|
|
|
count :: (Eq a) => [a] -> a -> Int
|
|
count xs x = length $ filter (x ==) xs
|