hasufell/haskell-lectures
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add code snippets

Browse Source
This commit is contained in:
Julian Ospald 2015-04-20 00:36:44 +02:00
parent 86969074e3
commit aa66512620
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Code.hs
View File

@ -39,3 +39,15 @@ calcSomething :: Int -> MaybeInt
calcSomething x
| x < 100 = NoError (x * 5)
| otherwise = Error "Int out of range!"
f' :: Int -> Int
f' x = let y p = x + p
in x + (y 2)
addTwo :: [Int] -> [Int]
addTwo [] = []
addTwo (x:xs) = (x + 2) : addTwo xs
f'' :: String -> Bool
f'' xs = even . length . (\x -> x ++ "Hello world") $ xs