Solve 'Removing Elements' kata

Author: borisskert

src/Removing.hs

@@ -0,0 +1,8 @@
+module Removing (removeEveryOther) where
+
+-- https://www.codewars.com/kata/5769b3802ae6f8e4890009d2/train/haskell
+
+removeEveryOther :: [a] -> [a]
+removeEveryOther [] = []
+removeEveryOther [x] = [x]
+removeEveryOther (x:xs) = (x :) . removeEveryOther . tail $ xs

test/RemovingSpec.hs

@@ -0,0 +1,16 @@
+module RemovingSpec where
+
+import Removing (removeEveryOther)
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  it "Fixed Tests" $ do
+    removeEveryOther ["Hello", "Goodbye", "Hello Again"]
+      `shouldBe` ["Hello", "Hello Again"]
+    removeEveryOther [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]
+      `shouldBe` [1, 3, 5, 7, 9]
+    removeEveryOther [[1, 2]]
+      `shouldBe` [[1, 2]]
+    removeEveryOther [Left "Goodbye", Right ("Great", "Job")]
+      `shouldBe` [Left "Goodbye"]