Size: a a a
p
mergeRight :: SplitArray ~> SplitArray
mergeRight xs =
case uncons xs of
Nothing -> []
Just {head: Text c, tail} -> let (Tuple d lTail) = go tail in Text (c <> d) : mergeRight lTail
Just r -> r.head : mergeRight r.tail
where
go tail = case uncons tail of
Just { head: Delim d', tail: tail' } -> Tuple d' tail'
_ -> Tuple [] tail
p
where больше нельзя использовать в паттерн гардахЗП
mergeRight :: SplitArray ~> SplitArray
mergeRight xs =
case uncons xs of
Nothing -> []
Just {head: Text c, tail} -> let (Tuple d lTail) = go tail in Text (c <> d) : mergeRight lTail
Just r -> r.head : mergeRight r.tail
where
go tail = case uncons tail of
Just { head: Delim d', tail: tail' } -> Tuple d' tail'
_ -> Tuple [] tail
p
p
ЗП
ЗП
logShow $ x :: Intp
logShow $ ( x :: Int )ЗП
ЗП
logShow (typeCheck2 ((add (nval 10.0) (typed TNumber $ nval 5.0)) :: E3))
p
p
p
ЗП
p
ЗП
p
ЗП
p