Data commit

Task/Comma-quibbling/Haskell/comma-quibbling-1.hs

@@ -0,0 +1,9 @@
+quibble ws = "{" ++ quibbles ws ++ "}"
+  where quibbles [] = ""
+        quibbles [a] = a
+        quibbles [a,b] = a ++ " and " ++ b
+        quibbles (a:bs) = a ++ ", " ++ quibbles bs
+
+main = mapM_ (putStrLn . quibble) $
+  [[], ["ABC"], ["ABC", "DEF"], ["ABC", "DEF", "G", "H"]] ++
+  (map words ["One two three four", "Me myself I", "Jack Jill", "Loner" ])

Task/Comma-quibbling/Haskell/comma-quibbling-2.hs

@@ -0,0 +1,15 @@
+import Data.List (intercalate)
+
+quibble :: [String] -> String
+quibble ws
+  | length ws > 1 =
+    intercalate
+      " and "
+      ([intercalate ", " . reverse . tail, head] <*> [reverse ws])
+  | otherwise = concat ws
+
+main :: IO ()
+main =
+  mapM_ (putStrLn . (`intercalate` ["{", "}"]) . quibble) $
+  [[], ["ABC"], ["ABC", "DEF"], ["ABC", "DEF", "G", "H"]] ++
+  (words <$> ["One two three four", "Me myself I", "Jack Jill", "Loner"])