6 Mar
2017
6 Mar
'17
5:21 p.m.
In[359]:= Select[words, StringLength@# == 11 &] // tim;
0.333922,20250
Wow! In[360]:= MaximalBy[%, Length@anagrams@# &] // tim During evaluation of In[360]:= 30110.569159,5 Out[360]= {"anisometric", "creationism", "miscreation", "reactionism", "romanticise"} --rwg