Data commit

Task/Determine-if-a-string-has-all-unique-characters/Mathematica/determine-if-a-string-has-all-unique-characters.math

@@ -0,0 +1,27 @@
+ClearAll[UniqueCharacters]
+UniqueCharacters[s_String] := Module[{c, len, good = True},
+  c = Characters[s];
+  len = Length[c];
+  Print[s, " with length ", len];
+  Do[
+   If[c[[i]] == c[[j]],
+    Print["Character ", c[[i]], " is repeated at positions ", i,
+     " and ", j];
+    good = False
+    ]
+   ,
+   {i, len - 1},
+   {j, i + 1, len}
+   ];
+  If[good,
+   Print["No repeats"];
+   True
+   ,
+   False
+   ]
+  ]
+UniqueCharacters[""]
+UniqueCharacters["."]
+UniqueCharacters["abcABC"]
+UniqueCharacters["XYZ ZYX"]
+UniqueCharacters["1234567890ABCDEFGHIJKLMN0PQRSTUVWXYZ"]