From 496802db80de0a4428e436edc5751e48c1111c56 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Sat, 16 Jan 2021 18:53:59 -0500
Subject: 1st commit on 083_haskell

---
 challenge-083/stuart-little/README          |  2 +-
 challenge-083/stuart-little/haskell/ch-1.hs |  9 +++++++++
 challenge-083/stuart-little/haskell/ch-2.hs | 14 ++++++++++++++
 3 files changed, 24 insertions(+), 1 deletion(-)
 create mode 100755 challenge-083/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-083/stuart-little/haskell/ch-2.hs

diff --git a/challenge-083/stuart-little/README b/challenge-083/stuart-little/README
index 76119cbbb8..78439907de 100644
--- a/challenge-083/stuart-little/README
+++ b/challenge-083/stuart-little/README
@@ -1 +1 @@
-Solutions by Stuart Little.
+Solutions by Stuart Little
diff --git a/challenge-083/stuart-little/haskell/ch-1.hs b/challenge-083/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..343d334492
--- /dev/null
+++ b/challenge-083/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,9 @@
+#!/usr/bin/env runghc
+
+-- run <script> <quoted string>
+
+import System.Environment (getArgs,)
+
+main = do
+  ln <- getArgs >>= return.head >>= return.sum.(map length).init.tail.words
+  print ln
diff --git a/challenge-083/stuart-little/haskell/ch-2.hs b/challenge-083/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..7f7413921b
--- /dev/null
+++ b/challenge-083/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,14 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated numbers>
+
+import Data.List (subsequences,)
+import Data.List.Extra (minimumOn,groupSortOn,)
+import System.Environment (getArgs,)
+
+main = do
+  nrs <- getArgs >>= return.(map (read::String->Int))
+  let reslst = minimumOn length $ last $ groupSortOn sum $ filter ((<= (sum nrs)).(2*).sum) $ subsequences nrs
+  putStrLn "Change the sign(s) of:"
+  print reslst
+  putStrLn $ "Number of elements: " ++ (show $ length reslst)
-- 
cgit