Untitled

 avatar
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