Data commit

Task/Symmetric-difference/Oz/symmetric-difference-1.oz

@@ -0,0 +1,32 @@
+declare
+  fun {SymDiff A B}
+     {Union {Diff A B} {Diff B A}}
+  end
+
+  %% implement sets in terms of lists
+  fun {MakeSet Xs}
+     set({Nub2 Xs nil})
+  end
+
+  fun {Diff set(A) set(B)}
+     set({FoldL B List.subtract A})
+  end
+
+  fun {Union set(A) set(B)}
+     set({Append A B})
+  end
+
+  %% --
+  fun {Nub2 Xs Ls}
+     case Xs of nil then nil
+     [] X|Xr andthen {Member X Ls} then {Nub2 Xr Ls}
+     [] X|Xr then X|{Nub2 Xr X|Ls}
+     end
+  end
+in
+  {Show {SymDiff
+	 {MakeSet [john bob mary serena]}
+	 {MakeSet [jim mary john bob]}}}
+  {Show {SymDiff
+	 {MakeSet [john serena bob mary serena]}
+	 {MakeSet [jim mary john jim bob]}}}

Task/Symmetric-difference/Oz/symmetric-difference-2.oz

@@ -0,0 +1,9 @@
+declare
+  fun {SymDiff A B}
+     {FS.union {FS.diff A B} {FS.diff B A}}
+  end
+
+  A = {FS.value.make [1 2 3 4]}
+  B = {FS.value.make [5 3 1 2]}
+in
+  {Show {SymDiff A B}}