m
serve вызывается и всё -- выжирание памяти и падениеSize: a a a
JS
JS
IK
data Requirement = Requirement
{ req_type :: String,
req_rest :: Either [String] Int,
req_grade :: Either String Int
} deriving (Show, Eq)
newList :: Requirement -> [a] -> [a]
newList a b = take (fromMaybe 0 (elemIndex (either id id (req_grade a)) b)) b
Couldn't match type `Int' with `[Char]'
Expected: Either String String
Actual: Either String Int
[
IK
IK
[
[
[
IK
[