16 lines
361 B
Text
16 lines
361 B
Text
import delimited http://wiki.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
|