baby.hs

doubleMe x = x + x
doubleUs x y = x*2 + y*2
doubleSmallNumber x = if x > 100
                        then x
                        else x*2
doubleSmallNumber' x = (if x > 100 then x else x*2)+1
conanO'Brien = "It's a-me,Conan O'Brien"

boomBangs xs = [if x < 10 then "BOOM"else "BANG"|x <- xs,odd x ]

length' xs = sum [1 | _ <- xs]

findEven xxs = [[x | x<- xs ,even x]|xs <- xxs]

rightTriangles' = [(a,b,c) | a <- [1..10],b <- [1..10],c <- [1..10],a^2 + b^2 == c^2, a+b+c == 24]