Change e letters to i in words: Difference between revisions

Content added Content deleted
m (→‎{{header|R}}: Syntax highlighting.)
m (→‎{{header|R}}: Fixed weird lang tag problem.)
Line 1,689:
<lang rsplus>dict <- scan("https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt", what = character())
changed <- chartr("e", "i", dict)
cbind(oldBefore = dict, newAfter = changed)[changed != dict & changed %in% dict & nchar(changed) > 5, ]</lang>
{{out}}
<pre> oldBefore After new
[1,] "analyses" "analysis"
[2,] "atlantes" "atlantis"
Retrieved from "https://rosettacode.org/wiki/Change_e_letters_to_i_in_words"