Data update

Task/Anagrams/ALGOL-68/anagrams.alg

@@ -55,7 +55,6 @@ ELSE
                                      END
                        );
     REF AARRAY words := INIT LOC AARRAY;
-    STRING word;
     WHILE NOT at eof
     DO
         STRING word;

Task/Anagrams/Ursalang/anagrams.ursa

@@ -0,0 +1,21 @@
+use js.fetch
+let text = fetch("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt").text()
+let words = text.split("\n")
+
+let anagrams = {}
+for word in words.iter() {
+    let sorted = word.split("").sorted().join("")
+    if anagrams.get(sorted) == null {
+        anagrams.set(sorted, [])
+    }
+    anagrams.get(sorted).push(word)
+}
+
+var most_anagrams = 0
+for ana in anagrams.values() {
+    if ana.len() > most_anagrams {most_anagrams := ana.len()}
+}
+
+for ana in anagrams.values() {
+    if ana.len() == most_anagrams {print(ana)}
+}