Browse Source

Add case...of code

master
Julian Ospald 9 years ago
parent
commit
b964f22c39
No known key found for this signature in database GPG Key ID: 220CD1C5BDEED020
1 changed files with 6 additions and 0 deletions
  1. +6
    -0
      common/code/Code.hs

+ 6
- 0
common/code/Code.hs View File

@@ -51,3 +51,9 @@ addTwo (x:xs) = (x + 2) : addTwo xs


f'' :: String -> Bool f'' :: String -> Bool
f'' xs = even . length . (\x -> x ++ "Hello world") $ xs f'' xs = even . length . (\x -> x ++ "Hello world") $ xs

g :: Int -> Bool
g x = case x - 2 of
2 -> True
5 -> True
x -> False

Loading…
Cancel
Save