21 Nov
2020
21 Nov
'20
6:34 a.m.
It's the longest word whose reverse is a word: In[282]:= MaximalBy[DeleteCases[words, "MALAYALAM"], If[StringQ@# && MemberQ[words, Evaluate[StringReverse@#]], StringLength@#, 0] &] /@Range@6// tim During evaluation of In[282]:= 4166.771102,6 Out[282]= {"DESSERTS", "DIORAMAS", "REDRAWER", "REWARDER", "SAMAROID", "STRESSED"} W/o the Evaluate this took over 2.5 hrs. In[295]:= WordDefinition@"samaroid" Out[295]= {"pain caused by maple seeds at or inside the anal sphincter. Relieved by Preparation S."} —Bill