From 71d677e4c8a1335c6420bac6b095255131db42e6 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Tue, 12 Jan 2021 20:35:59 -0500
Subject: 1st commit on 041_haskell

---
 challenge-041/stuart-little/haskell/ch-1.hs | 8 ++++++++
 challenge-041/stuart-little/haskell/ch-2.hs | 8 ++++++++
 2 files changed, 16 insertions(+)
 create mode 100755 challenge-041/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-041/stuart-little/haskell/ch-2.hs

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