Find words whose first and last three letters are equal: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Aamrun (talk | contribs)
503 edits
m Added file closure statement
Added R.
Line 567:
testes
</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}}==
Retrieved from "https://rosettacode.org/wiki/Find_words_whose_first_and_last_three_letters_are_equal"