RosettaCodeData/Task/Semordnilap/Mathematica/semordnilap.math

data = Import["http://www.puzzlers.org/pub/wordlists/unixdict.txt", "List"];
result = DeleteDuplicates[ Select[data, MemberQ[data, StringReverse[#]]
  && # =!= StringReverse[#] &], (# ===StringReverse[#2]) &];
Print[Length[result], Take[result, 5]]
tasks a-s 2013-04-10 23:57:08 -07:00			`data = Import["http://www.puzzlers.org/pub/wordlists/unixdict.txt", "List"];`
Just another update 2015-02-20 00:35:01 -05:00			`result = DeleteDuplicates[ Select[data, MemberQ[data, StringReverse[#]]`
			`&& # =!= StringReverse[#] &], (# ===StringReverse[#2]) &];`
tasks a-s 2013-04-10 23:57:08 -07:00			`Print[Length[result], Take[result, 5]]`