Solve 57ebdf1c2d45a0ecd7002cd5

src/Kyu6/InsideOut.hs

@@ -0,0 +1,12 @@
+module Kyu6.InsideOut where
+
+insideOut :: String -> String
+insideOut xs = unwords $ map turnWord $ words xs
+
+turnWord :: String -> String
+turnWord xs
+  | even l = reverse (take m xs) ++ reverse (drop m xs)
+  | otherwise = reverse (take m xs) ++ [xs !! m] ++ reverse (drop (m + 1) xs)
+  where
+    l = length xs
+    m = l `div` 2

test/Kyu6/InsideOutSpec.hs

@@ -0,0 +1,12 @@
+module Kyu6.InsideOutSpec where
+
+import Kyu6.InsideOut
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  describe "Inside Out Strings" $ do
+    it "Basic tests" $ do
+      insideOut "man i need a taxi up to ubud" `shouldBe` "man i ende a atix up to budu"
+      insideOut "what time are we climbing up the volcano" `shouldBe` "hwta item are we milcgnib up the lovcona"
+      insideOut "take me to semynak" `shouldBe` "atek me to mesykan"