к
Size: a a a
[
[
JS
palindrom :: Eq s => Seq s -> Bool
palindrom = \case
SES s1 e s2 | s1 == s2 -> palindrom e
S _ -> True
Empty -> True
_ -> False
pattern SES :: a -> Seq a -> a -> Seq a
pattern SES s1 e s2 = s1 :<| (e :|> s2)
pattern S :: a -> Seq a
pattern S s = s :<| Empty
JS
[
[
JS
JS
AL
JS
ЗП
t
AP