more functions

This commit is contained in:
Dan Buch 2012-04-02 22:35:25 -04:00
parent 08fccd5156
commit 5d3ed2ad87

View File

@ -1,3 +1,9 @@
doubleMe x = x + x doubleMe x = x + x
doubleUs x y = x*2 + y*2 doubleUs x y = doubleMe x + doubleMe y
doubleSmallNumber x = if x > 100
then x
else x*2
doubleSmallNumber' x = (if x > 100 then x else x*2) + 1