AZ
Size: a a a
AZ
AZ
S
p
text = char[] where char[i] = '9' where i = 2, 5, 8...
AZ
Option<TextWithEveryThirdCharIs9>
точно так жеS
S
AZ
AZ
AK
slidingSpan :: (a -> a -> Bool) -> [a] -> ([a], [a])
slidingSpan _ [] = ([], [])
slidingSpan p xs = impl p [] xs
where
impl _ res [] = (reverse res, [])
impl p [] (x:xs) = impl p [x] xs
impl p res@(r:_) lst@(x:xs)
| r `p` x = impl p (x : res) xs
| otherwise = (reverse res, lst)
S
AK
G
AZ
slidingSpan :: (a -> a -> Bool) -> [a] -> ([a], [a])
slidingSpan _ [] = ([], [])
slidingSpan p xs = impl p [] xs
where
impl _ res [] = (reverse res, [])
impl p [] (x:xs) = impl p [x] xs
impl p res@(r:_) lst@(x:xs)
| r `p` x = impl p (x : res) xs
| otherwise = (reverse res, lst)
S
AZ
G
AZ
AZ
AZ