Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- lCPrefix :: Eq a => [a] -> [a] -> [a]
- lCPrefix _ [] = []
- lCPrefix [] _ = []
- lCPrefix (x:xs) (y:ys)
- | x == y = x : lCPrefix xs ys
- | otherwise = []
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement