Haskell Example

gistfile1.hs

doubleMe x = x + x
doubleUs x y = doubleMe x + doubleMe y

doubleSmallNumber x = 
	if x > 100
	then x
	else x * 2
	
maximum' [] = error "Empty list"
maximum' [x] = x
maximum' (x:xs)
	| x > maximum' xs = x
	| otherwise =  maximum' xs