deque-blog/MoneyKentBeckDefect.hs

## MoneyKentBeckDefect.hs
let x = add (add a (multiply b 2)) c  -- (a + b * 2) + c
let y = add a (add (multiply b 2) c)  -- a + (b * 2 + c)

x == y                                -- Testing equality
> False                               -- Not what we expect
	let x = add (add a (multiply b 2)) c -- (a + b * 2) + c
	let y = add a (add (multiply b 2) c) -- a + (b * 2 + c)

	x == y -- Testing equality
	> False -- Not what we expect