Merge pull request #3118 from stuart-little/stuart-little080_haskell

1st commit on 080_haskell

3 files changed, 25 insertions, 1 deletions

diff --git a/challenge-080/stuart-little/README b/challenge-080/stuart-little/README
index 76119cbbb8..78439907de 100644
--- a/challenge-080/stuart-little/README
+++ b/challenge-080/stuart-little/README
@@ -1 +1 @@
-Solutions by Stuart Little.
+Solutions by Stuart Little
diff --git a/challenge-080/stuart-little/haskell/ch-1.hs b/challenge-080/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..5390e9585e
--- /dev/null
+++ b/challenge-080/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <space-separated array entries>
+
+import System.Environment   
+import Data.List  
+
+firstMisPos a = head [x | x <- [1..], notElem x a]
+
+main = do  
+    args <- getArgs
+    print $ firstMisPos $ map (\y -> read y::Integer) args
diff --git a/challenge-080/stuart-little/haskell/ch-2.hs b/challenge-080/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..11b32ca791
--- /dev/null
+++ b/challenge-080/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run as <script> <space-separated array entries>
+
+import System.Environment   
+import Data.List  
+
+candy a = (length a) + (length $ filter ((/=) 0) $ zipWith (-) a $ tail a)
+
+main = do  
+    args <- getArgs
+    print $ candy $ map (\y -> read y::Integer) args