Data commit

Task/Anagrams/TUSCRIPT/anagrams.tu

@@ -0,0 +1,28 @@
+$$ MODE TUSCRIPT,{}
+requestdata = REQUEST ("http://wiki.puzzlers.org/pub/wordlists/unixdict.txt")
+
+DICT anagramm CREATE 99999
+
+COMPILE
+ LOOP word=requestdata
+  -> ? : any character
+  charsInWord=STRINGS (word," ? ")
+  charString =ALPHA_SORT (charsInWord)
+  DICT anagramm APPEND/QUIET/COUNT charString,num,freq,word;" "
+ ENDLOOP
+
+DICT anagramm UNLOAD charString,all,freq,anagrams
+
+index        =DIGIT_INDEX (freq)
+reverseIndex =REVERSE (index)
+freq         =INDEX_SORT (freq,reverseIndex)
+anagrams     =INDEX_SORT (anagrams,reverseIndex)
+charString   =INDEX_SORT (charString,reverseIndex)
+
+mostWords=SELECT (freq,1), adjust=MAX_LENGTH (charString)
+ LOOP cs=charString, f=freq, a=anagrams
+  IF (f<mostWords) EXIT
+   cs=CENTER (cs,-adjust)
+   PRINT cs," ",f,": ",a
+ ENDLOOP
+ENDCOMPILE