Semordnilap: Difference between revisions
m
→{{header|Mathematica}}
No edit summary |
|||
Line 2,081:
</pre >
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>data = Import["http://www.puzzlers.org/pub/wordlists/unixdict.txt", "List"];
result = DeleteDuplicates[ Select[data, MemberQ[data, StringReverse[#]]
| |||