Among the not-too-short, not-uncommon examples are the following: animal/lamina deliver/reviled desserts/stressed diaper/repaid gateman/nametag pupils/slipup —Dan
On Friday/20November/2020, at 10:34 PM, Bill Gosper <billgosper@gmail.com> wrote:
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