Data commit

Task/Reverse-a-string/Haskell/reverse-a-string-1.hs

@@ -0,0 +1 @@
+reverse = foldl (flip (:)) []

Task/Reverse-a-string/Haskell/reverse-a-string-2.hs

@@ -0,0 +1,4 @@
+accumulatingReverse :: [a] -> [a]
+accumulatingReverse lst =
+  let rev xs a = foldl (flip (:)) a xs
+  in rev lst []

Task/Reverse-a-string/Haskell/reverse-a-string-3.hs

@@ -0,0 +1,3 @@
+import Data.Char (isMark)
+import Data.List (groupBy)
+myReverse = concat . reverse . groupBy (const isMark)