run.sh and applicative things

1 files changed, 15 insertions, 0 deletions

diff --git a/foo.hs b/foo.hs
index 0cdf3b6..1565904 100644
--- a/foo.hs
+++ b/foo.hs
@@ -19,3 +19,18 @@ data Bar = Bar Int Int deriving (Eq,Show)
 
 instance Ord Bar where
   (Bar _ s1) `compare` (Bar _ s2) = s1 `compare` s2
+
+
+
+
+-- Stuff with applicative
+
+intlist = [1, 5, 6, 8]
+
+func1 x = x * 2
+func2 x = x * 3
+func3 x = x * 5
+
+funcs = [func1, func2, func3]
+
+