Untitled
unknown
plain_text
a year ago
172 B
5
Indexable
span'' :: (a-> Bool) -> [a] -> ([a],[a]) span'' _ [] = ([],[]) span'' f (x:xs) | f x = (x:a,b) | otherwise = ([],x:xs) where (a,b) = span'' f xs
Editor is loading...
Leave a Comment
span'' :: (a-> Bool) -> [a] -> ([a],[a]) span'' _ [] = ([],[]) span'' f (x:xs) | f x = (x:a,b) | otherwise = ([],x:xs) where (a,b) = span'' f xs