Julian Ospald
9 years ago
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with
12 additions and
0 deletions
-
Code.hs
|
|
@@ -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 |