Change e letters to i in words: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) (Added 11l) |
ReeceGoding (talk | contribs) (Added R. Very short.) |
||
Line 1,643: | Line 1,643: | ||
victor |
victor |
||
willis</pre> |
willis</pre> |
||
=={{header|R}}== |
|||
<lang R>dict <- scan("https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt", what = character()) |
|||
changed <- chartr("e", "i", dict) |
|||
cbind(old = dict, new = changed)[changed != dict & changed %in% dict & nchar(changed) > 5, ]</lang> |
|||
{{out}} |
|||
<pre> old new |
|||
[1,] "analyses" "analysis" |
|||
[2,] "atlantes" "atlantis" |
|||
[3,] "bellow" "billow" |
|||
[4,] "breton" "briton" |
|||
[5,] "clench" "clinch" |
|||
[6,] "convect" "convict" |
|||
[7,] "crises" "crisis" |
|||
[8,] "diagnoses" "diagnosis" |
|||
[9,] "enfant" "infant" |
|||
[10,] "enquiry" "inquiry" |
|||
[11,] "frances" "francis" |
|||
[12,] "galatea" "galatia" |
|||
[13,] "harden" "hardin" |
|||
[14,] "heckman" "hickman" |
|||
[15,] "inequity" "iniquity" |
|||
[16,] "inflect" "inflict" |
|||
[17,] "jacobean" "jacobian" |
|||
[18,] "marten" "martin" |
|||
[19,] "module" "moduli" |
|||
[20,] "pegging" "pigging" |
|||
[21,] "psychoses" "psychosis" |
|||
[22,] "rabbet" "rabbit" |
|||
[23,] "sterling" "stirling" |
|||
[24,] "synopses" "synopsis" |
|||
[25,] "vector" "victor" |
|||
[26,] "welles" "willis"</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |