1st commit on 003_haskell

2 files changed, 23 insertions, 0 deletions

diff --git a/challenge-003/stuart-little/haskell/ch-1.hs b/challenge-003/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..93ea66e2d0
--- /dev/null
+++ b/challenge-003/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <nr_lines>
+
+import System.Environment (getArgs,)
+import Combinatorics (binomials,)
+
+main = do
+  (nrlines:_) <- getArgs
+  mapM_ print $ take (read nrlines::Int) $ binomials   
diff --git a/challenge-003/stuart-little/haskell/ch-2.hs b/challenge-003/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..0b7e26d4a5
--- /dev/null
+++ b/challenge-003/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run <script> <number of items you want to print>
+
+import System.Environment (getArgs,)
+import Data.List.Ordered (merge,nub,)
+
+smth = let primes=[2,3,5]
+  in nub (1:(foldl1 merge $ map (\x -> map (x*) $ nub $ smth) primes))
+
+main = do
+  (nr:_) <- getArgs
+  mapM_ putStrLn $ map show $ take (read nr::Int) $ smth