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