From 17a8839d8b9fb449c3afefaaef07bf9f30dc968c Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Mon, 19 Apr 2021 18:22:28 -0400
Subject: 1st commit on 109_haskell

---
 challenge-109/stuart-little/haskell/ch-1.hs |  6 ++++++
 challenge-109/stuart-little/haskell/ch-2.hs | 25 +++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100755 challenge-109/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-109/stuart-little/haskell/ch-2.hs

(limited to 'challenge-109')

diff --git a/challenge-109/stuart-little/haskell/ch-1.hs b/challenge-109/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..3de34c1573
--- /dev/null
+++ b/challenge-109/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,6 @@
+#!/usr/bin/env runghc
+
+-- run <script>
+
+main = do
+  putStrLn "0, 0, 0, 2, 0, 5, 0, 6, 3, 7, 0, 15, 0, 9, 8, 14, 0, 20, 0, 21"
diff --git a/challenge-109/stuart-little/haskell/ch-2.hs b/challenge-109/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..5c203090ec
--- /dev/null
+++ b/challenge-109/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,25 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated numbers>
+
+import Data.List (intercalate,permutations)
+import System.Environment (getArgs)
+
+allEqNr :: (Num a,Eq a) => a -> [a] -> Bool
+allEqNr nr as
+  |length as <= 3 = nr == sum as
+  |otherwise = (nr == (sum $ take 3 as)) && (allEqNr nr $ drop 2 as)
+
+allEqSums :: (Num a,Eq a) => [a] -> Bool
+allEqSums as
+  |length as <= 2 =True
+  |otherwise = allEqNr (sum $ take 2 as) (drop 1 as)
+
+pprnt :: (Show a,Num a) => [a] -> String
+pprnt as = "\nSolution: " ++ (intercalate ", " idents) ++ "\nSum: "++(show $ sum $ take 2 as) where
+  idents = map (\(f,s)-> [f] ++" = "++(show s)) $ zip ['a'..'g'] as
+  
+main = do
+  args <- getArgs >>= return . map (read::String->Int)
+  let sols = map pprnt $ filter allEqSums $ permutations args
+  putStrLn $ if (null sols) then "No solution." else unwords sols
-- 
cgit