Data commit

Task/Comma-quibbling/Maple/comma-quibbling-1.maple

@@ -0,0 +1,12 @@
+Quibble := proc( los )
+  uses  StringTools;
+  Fence( proc()
+        if los = [] then
+          ""
+        elif numelems( los ) = 1 then
+          los[ 1 ]
+        else
+          cat( Join( los[ 1 .. -2 ], ", " ), " and ", los[ -1 ] )
+        end if
+  end(), "{", "}" )
+end proc:

Task/Comma-quibbling/Maple/comma-quibbling-2.maple

@@ -0,0 +1,11 @@
+> Quibble([]);
+                                  "{}"
+
+> Quibble( [ "ABC" ] );
+                                "{ABC}"
+
+> Quibble( [ "ABC", "DEF" ] );
+                            "{ABC and DEF}"
+
+> Quibble( ["ABC", "DEF", "G", "H"] );
+                         "{ABC, DEF, G and H}"