home |
letTest1 x = let a = 3 f v = v + 2 in do a * f x
letTest2 x = let a = b + 3 b = 2 f c = a * b + c in do a * f x
*Main> letTest1 2 12 *Main> letTest2 2 60
whereTest1 x = a * f x where a = 3 f v = v + 2 whereTest2 x = a * f x where a = b + 3 b = 2 f c = a * b + c
*Main> whereTest1 2 12 *Main> whereTest2 2 60