Skip to content

Instantly share code, notes, and snippets.

@robinp

robinp/Lista.hs

Last active August 16, 2016 20:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save robinp/5473b7bf8aaf84201fbfb52efeda96c3 to your computer and use it in GitHub Desktop.
Save robinp/5473b7bf8aaf84201fbfb52efeda96c3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Lista.hs
data Lista = Megtobb Int Lista | Vege
uresLista :: Lista
uresLista = Vege
egyKetHa :: Lista
egyKetHa = Megtobb 1 (Megtobb 2 (Megtobb 3 Vege))
hossz :: Lista -> Int
hossz Vege = 0
hossz (Megtobb _ farok) = 1 + hossz farok
main = do
print (hossz uresLista)
print (hossz egyKetHa)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment