Find words whose first and last three letters are equal: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add PL/I |
|||
Line 441:
tartar
testes</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>dict = Once[Import["https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt"]];
dict //= StringSplit[#, "\n"] &;
dict //= Select[StringLength /* GreaterThan[5]];
Select[dict, StringTake[#, 3] === StringTake[#, -3] &]</lang>
{{out}}
<pre>{"antiperspirant", "calendrical", "einstein", "hotshot", "murmur", "oshkosh", "tartar", "testes"}</pre>
=={{header|Nim}}==
| |||