Merge pull request #3248 from stuart-little/stuart-little_074_haskell

1st commit on 074_haskell

3 files changed, 25 insertions, 1 deletions

diff --git a/challenge-074/stuart-little/README b/challenge-074/stuart-little/README
index 76119cbbb8..78439907de 100644
--- a/challenge-074/stuart-little/README
+++ b/challenge-074/stuart-little/README
@@ -1 +1 @@
-Solutions by Stuart Little.
+Solutions by Stuart Little
diff --git a/challenge-074/stuart-little/haskell/ch-1.hs b/challenge-074/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..94e4afb5bf
--- /dev/null
+++ b/challenge-074/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated numbers>
+
+import System.Environment (getArgs,)
+import Data.List.Extra (headDef,)
+import Data.List.Utils (countElem,)
+
+main = do
+  args <- getArgs >>= return.(map (read::String->Int))
+  let l = length args
+  print $ headDef (-1) $ filter (\x-> (countElem x args) > (div l 2)) args
diff --git a/challenge-074/stuart-little/haskell/ch-2.hs b/challenge-074/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..b22de6a90b
--- /dev/null
+++ b/challenge-074/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run <script> <string>
+
+import System.Environment (getArgs,)
+import Data.List (inits,)
+import Data.List.Extra (headDef,)
+import Data.List.Utils (countElem,)
+
+main = do
+  str <- getArgs >>= return.head
+  print $ map (headDef '#') $ map (\l -> dropWhile (\x -> countElem x l > 1) l) $ map reverse $ tail $ inits str