Skip to content

Instantly share code, notes, and snippets.

@oskimura

oskimura/g.hs

Created April 13, 2011 08:45
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save oskimura/917208 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save oskimura/917208 to your computer and use it in GitHub Desktop.
Download ZIP
差分抽出
Raw
g.hs
g (x:xs) (y:ys)
| x==y = g xs ys
| otherwise = (y:ys)
g [] ys = ys
g _ [] = []
g [] [] = []
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment