Find words whose first and last three letters are equal: Difference between revisions
Content added Content deleted
m (Added file closure statement) |
ReeceGoding (talk | contribs) (Added R.) |
||
Line 567: | Line 567: | ||
testes |
testes |
||
</pre> |
</pre> |
||
=={{header|R}}== |
|||
<lang R>dict <- scan("https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt", what = character()) |
|||
dict[nchar(dict) > 5 & substr(dict, 1, 3) == substr(dict, nchar(dict) - 2, nchar(dict))]</lang> |
|||
=={{header|Racket}}== |
=={{header|Racket}}== |