Skip to content

Instantly share code, notes, and snippets.

@Bonifacio2

Bonifacio2/camelDouble.hs

Created September 8, 2016 20:50
Show Gist options
  • Save Bonifacio2/3d844657f073d11574416ac41d824ed2 to your computer and use it in GitHub Desktop.
Save Bonifacio2/3d844657f073d11574416ac41d824ed2 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
camelDouble.hs
camelDouble :: [Int] -> [Int]
camelDouble (x:[]) = [x]
camelDouble (x:y:[]) = [x, y * 2]
camelDouble (x:y:z) = (camelDouble [x, y]) ++ camelDouble z
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment