Merge pull request #3441 from stuart-little/stuart-little_098_haskell

1st commit on 098_haskell

2 files changed, 19 insertions, 0 deletions

diff --git a/challenge-098/stuart-little/haskell/ch-1.hs b/challenge-098/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..d14d005e54
--- /dev/null
+++ b/challenge-098/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <path-to-file> <number>
+
+import System.Environment (getArgs)
+
+main = do
+  (path:nr:_) <- getArgs
+  txt <- readFile path
+  putStrLn $ take (read nr::Int) txt
diff --git a/challenge-098/stuart-little/haskell/ch-2.hs b/challenge-098/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..2108eeb2d7
--- /dev/null
+++ b/challenge-098/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,9 @@
+#!/usr/bin/env runghc
+
+-- run <script> <target> <space-separated array entries>
+
+import System.Environment (getArgs)
+
+main = do
+  (tgt:arr) <- getArgs >>= return . map (read::String->Int)
+  putStrLn $ show $ length $ filter (< tgt) arr