KV
А как, разве эксепшены на конте нельзя сделать? А они же не алгебраические
Size: a a a
KV
AV
let (h :< (_ 😆 t)) = sequenAV
KV
DM
let (h :< (_ 😆 t)) = sequenAV
Prelude Data.Sequence> let (h :<| (_ :|> t)) = fromList [1,2,3,4]
Prelude Data.Sequence> (h,t)
(1,4)AV
Prelude Data.Sequence> let ((h :<| _) :|> t) = fromList [1,2,3,4]
Prelude Data.Sequence> (h,t)
(1,4)DM
last а не tail но это не важно)AV
AV
Prelude Data.Sequence> let ((ы :<| _) :|> щ) = fromList [1,2,3,4]
Prelude Data.Sequence> (ы,щ)
(1,4)DM
AV
AV
ы :<| щAV
к
DB
к