From afb815c3dd567c2af3bb7ce53763865c46674b68 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Sun, 10 Jan 2021 17:18:18 -0500
Subject: 1st commit on 020_haskell

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

diff --git a/challenge-020/stuart-little/haskell/ch-1.hs b/challenge-020/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..39cf5cbc6a
--- /dev/null
+++ b/challenge-020/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,10 @@
+#!/usr/bin/env runghc
+
+-- run <script> <string>
+
+import System.Environment (getArgs,)
+import Data.List (group,)
+
+main = do
+  (str:_) <- getArgs
+  print $ group str
diff --git a/challenge-020/stuart-little/haskell/ch-2.hs b/challenge-020/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..11b5a254d0
--- /dev/null
+++ b/challenge-020/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,8 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+import Math.NumberTheory.ArithmeticFunctions (sigma,)
+
+main = do
+  print $ let f x = sigma 1 x -x; ls = [(2::Int)..] in head $ dropWhile (\(x,y) -> x == y || f y /= x) $ zip ls $ map f ls
-- 
cgit