Skip to content

Instantly share code, notes, and snippets.

@hiroshi-maybe

hiroshi-maybe/isSublist.hs

Created May 1, 2013 08:49
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save hiroshi-maybe/5494371 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save hiroshi-maybe/5494371 to your computer and use it in GitHub Desktop.
Download ZIP
A function to check sublist.
Raw
isSublist.hs
isSublist :: (Eq a) => [a] -> [a] -> Bool
isSublist [] _ = True
isSublist _ [] = False
isSublist (x:xs) ys = case dropWhile (/=x) ys of
[] -> False
(x:rest) -> isSublist xs rest
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment