From 52e411048cd8776c6a14f285ebaf79277052e999 Mon Sep 17 00:00:00 2001
From: chirvasitua <stuart-little@users.noreply.github.com>
Date: Wed, 6 Jan 2021 14:40:22 -0500
Subject: [PATCH] 1st commit on 055_haskell

---
 challenge-055/stuart-little/haskell/ch-1.hs | 13 +++++++++++++
 challenge-055/stuart-little/haskell/ch-2.hs | 12 ++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100755 challenge-055/stuart-little/haskell/ch-1.hs
 create mode 100755 challenge-055/stuart-little/haskell/ch-2.hs

diff --git a/challenge-055/stuart-little/haskell/ch-1.hs b/challenge-055/stuart-little/haskell/ch-1.hs
new file mode 100755
index 0000000000..d61107efa3
--- /dev/null
+++ b/challenge-055/stuart-little/haskell/ch-1.hs
@@ -0,0 +1,13 @@
+#!/usr/bin/env runghc
+
+-- run <script> <binary_nr>
+
+import System.Environment (getArgs,)
+import Data.List.Extra (groupSortOn,)
+import Data.List.Utils (countElem,)
+
+maxOnePairs bin = last $ groupSortOn (\(i,j) -> 2*(countElem '0' (take (j-i+1) $ drop i $ bin)) - (j-i+1)) [(i,j) | i <- [0..length bin], j <- [0..length bin], i <= j]
+
+main = do
+  args <- getArgs
+  print $ maxOnePairs (args !! 0)
diff --git a/challenge-055/stuart-little/haskell/ch-2.hs b/challenge-055/stuart-little/haskell/ch-2.hs
new file mode 100755
index 0000000000..bb76f73ddc
--- /dev/null
+++ b/challenge-055/stuart-little/haskell/ch-2.hs
@@ -0,0 +1,12 @@
+#!/usr/bin/env runghc
+
+-- run <script> <space-separated numbers>
+
+import System.Environment (getArgs,)
+import Data.List (permutations,)
+
+isWave xs = all (0<=) $ zipWith (*) (cycle [1,-1]) (zipWith (-) xs $ tail xs)
+
+main = do
+  args <- getArgs  
+  print $ filter isWave $ permutations $ map (read::String->Int) args