more functions

2012-04-02 22:35:25 -04:00 · 2012-04-02 22:35:25 -04:00 · 5d3ed2ad87
commit 5d3ed2ad87
parent 08fccd5156
1 changed files with 7 additions and 1 deletions
--- a/lyahfgg/baby.hs
+++ b/lyahfgg/baby.hs
@ -1,3 +1,9 @@
 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