Data update

Task/Symmetric-difference/Delphi/symmetric-difference-2.delphi

@@ -0,0 +1,18 @@
+program SymmetricDifference;
+
+type
+    charSet = set of Char;
+
+var
+    s1, s2, s3: charSet;
+    ch: char;
+
+begin
+    s1 := ['a', 'b', 'c', 'd'];
+    s2 := ['c', 'd', 'e', 'f'];
+    s3 := s1 >< s2;
+
+    for ch in s3 do
+        write(ch, ' ');
+    writeLn;
+end.

Task/Symmetric-difference/Pascal/symmetric-difference-2.pas

@@ -0,0 +1,18 @@
+program SymmetricDifference;
+
+type
+    charSet = set of Char;
+
+var
+    s1, s2, s3: charSet;
+    ch: char;
+
+begin
+    s1 := ['a', 'b', 'c', 'd'];
+    s2 := ['c', 'd', 'e', 'f'];
+    s3 := s1 >< s2;
+
+    for ch in s3 do
+        write(ch, ' ');
+    writeLn;
+end.

Task/Symmetric-difference/Refal/symmetric-difference.refal

@@ -0,0 +1,28 @@
+$ENTRY Go {
+    , John Bob Mary Serena: e.A
+    , Jim Mary John Bob: e.B
+    = <Prout <Symdiff (e.A) (e.B)>>;
+};
+
+Symdiff {
+    (e.1) (e.2), <Diff (<Set e.1>) (<Set e.2>)>: e.3
+               , <Diff (<Set e.2>) (<Set e.1>)>: e.4
+               = <Union (e.3) (e.4)>;
+};
+
+Set {
+    = ;
+    s.1 e.1 s.1 e.2 = <Set e.1 s.1 e.2>;
+    s.1 e.1 = s.1 <Set e.1>;
+};
+
+Union {
+    (e.1) (e.2) = <Set e.1 e.2>;
+};
+
+Diff {
+    () (e.1) = ;
+    (e.1) () = e.1;
+    (s.1 e.1) (e.2 s.1 e.3) = <Diff (e.1) (e.2 e.3)>;
+    (s.1 e.1) (e.2) = s.1 <Diff (e.1) (e.2)>;
+};

Task/Symmetric-difference/Wren/symmetric-difference.wren

@@ -1,4 +1,4 @@
-import "/set" for Set
+import "./set" for Set
 
 var symmetricDifference = Fn.new { |a, b| a.except(b).union(b.except(a)) }