From f3dae7a9f2e96d4e360d645e1b4e5340b283dcce Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Fri, 8 Jan 2021 16:19:46 -0500
Subject: 1st commit on 003_haskell

---
 challenge-003/stuart-little/haskell/ch-1.hs | 10 ++++++++++
 challenge-003/stuart-little/haskell/ch-2.hs | 13 +++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100755 challenge-003/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-003/stuart-little/haskell/ch-2.hs

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
-- 
cgit