June 2018 Update

Task/Anagrams/Stata/anagrams.stata

@@ -0,0 +1,16 @@
+import delimited http://www.puzzlers.org/pub/wordlists/unixdict.txt, clear
+mata
+a=st_sdata(.,.)
+n=rows(a)
+for (i=1; i<=n; i++) a[i]=char(sort(ascii(a[i])',1)')
+st_addvar(st_vartype(1),"group")
+st_sstore(.,2,a)
+end
+
+bysort group (v1): gen k=_N
+qui sum k
+keep if k==r(max)
+by group: replace k=_n
+reshape wide v1, i(k) j(group) string
+drop k
+list, noobs noheader