Odd words: Difference between revisions

=={{header|Mathematica}}/{{header|Wolfram Language}}==

<lang Mathematica>dict = Import["https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt"];

dict //= StringSplit[#, "\n"] &;

ClearAll[OddLetters, OddWordQ]

OddLetters[s_String] := StringTake[s, {1, -1, 2}]

OddWordQ[s_String] := Module[{},

If[StringLength[s] >= 9,

MemberQ[dict, OddLetters[s]]

,

False

]

]

{#, OddLetters[#]} & /@ Select[dict, OddWordQ] // Grid</lang>

{{out}}

<pre>barbarian brain

childbear cider

corrigenda cried

gargantuan grata

headdress hades

palladian plain

propionate point

salvation slain

siltation slain

slingshot sight

statuette saute

supersede spree

supervene spree

terminable trial</pre>