Merge pull request #3241 from stuart-little/stuart-little_041_haskell

1st commit on 041_haskell

2 files changed, 16 insertions, 0 deletions

diff --git a/challenge-041/stuart-little/haskell/ch-1.hs b/challenge-041/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..0d251cceed
--- /dev/null
+++ b/challenge-041/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,8 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+import Data.Numbers.Primes (isPrime,primeFactors,)
+
+main = do
+  mapM_ print $ filter (isPrime.length.primeFactors) [1..50]
diff --git a/challenge-041/stuart-little/haskell/ch-2.hs b/challenge-041/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..b3ddaaf4c2
--- /dev/null
+++ b/challenge-041/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,8 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+import Data.Function (fix,)
+
+main = do
+  mapM_ print $ take 20 $ fix (scanl (\x y -> x + y + 1) 1 . ((-1):))