on f86e01e help sign in
25 lines 389 B history raw
1foo :: Int -> Int
2foo x
3 | x == 5 = 10
4 | otherwise = 12
6bar :: Int -> Int
7bar x
8 | x == 5 = foo x
9 + foo 10
10 | x == 6 = foo x
11 + foo 20
12 | otherwise = foo 100
14baz :: Int -> Int
15baz x | x < 0 = x
16baz x | otherwise = x
18multi_baz :: Int -> Int
19multi_baz x | x < 42 = x
20multi_baz x | x < 0 = x
21multi_baz x | otherwise = x
23quux :: Int -> Int
24quux x | x < 0 = x
25quux x = x