Solve 'Unscrambled eggs' kata

Author: borisskert

src/UnscrambledEggs.hs

@@ -0,0 +1,10 @@
+module UnscrambledEggs (unscrambleEggs) where
+
+-- https://www.codewars.com/kata/55ea5650fe9247a2ea0000a7/train/haskell
+
+unscrambleEggs :: String -> String
+unscrambleEggs [] = []
+unscrambleEggs (a : b : c : xs)
+  | a == 'e' && b == 'g' && c == 'g' = unscrambleEggs xs
+  | otherwise = a : unscrambleEggs (b : c : xs)
+unscrambleEggs (x : xs) = x : unscrambleEggs xs

test/UnscrambledEggsSpec.hs

@@ -0,0 +1,12 @@
+module UnscrambledEggsSpec (spec) where
+
+import UnscrambledEggs (unscrambleEggs)
+import Test.Hspec
+import Test.HUnit (assertEqual)
+
+spec :: Spec
+spec = do
+  it "example tests" $ do
+    assertEqual "unscrambleEggs(\"Beggegeggineggneggeregg\")" "Beginner" $ unscrambleEggs "Beggegeggineggneggeregg"
+    assertEqual "unscrambleEggs(\"ceggodegge heggeregge\")" "code here" $ unscrambleEggs "ceggodegge heggeregge"
+    assertEqual "unscrambleEggs(\"FeggUNegg KeggATeggA\")" "FUN KATA" $ unscrambleEggs "FeggUNegg KeggATeggA"