Change e letters to i in words

Change e letters to i in words is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.

Task

Use the dictionary   unixdict.txt

Change letters   e   to   i   in words.

If changed word in dictionary show it here on this page.

The length of any word shown should have a length   >  5.

Other tasks related to string operations:

Metrics

• String length
• Empty string  (assignment)

Counting

• Word frequency
• Letter frequency
• Jewels and stones
• I before E except after C
• Bioinformatics/base count
• Count occurrences of a substring

Remove/replace

• XXXX redacted
• Remove vowels from a string
• Strip block comments
• Strip comments from a string
• Strip a set of characters from a string
• Strip whitespace from a string -- top and tail
• Strip control codes and extended characters from a string

Anagrams/Derangements/shuffling

• Word wheel
• ABC problem
• Anagrams
• Anagrams/Deranged anagrams
• Permutations/Derangements
• Superpermutation minimisation
• Sattolo cycle
• Knuth shuffle
• Ordered words
• Textonyms (using a phone text pad)

Find/Search/Determine

• ABC words
• Odd words
• Semordnilap
• String matching
• Alternade words
• Changeable words
• String comparison
• Extract file extension
• Levenshtein distance
• Palindrome detection
• Compare a list of strings
• Longest common prefix
• Longest common suffix
• Longest common substring
• Find common directory path
• Words from neighbour ones
• Change e letters to i in words
• Non-continuous subsequences
• Longest common subsequence
• Longest palindromic substrings
• Longest increasing subsequence
• Words containing "the" substring
• Determine if a string is numeric
• Determine if a string is collapsible
• Determine if a string is squeezable
• Determine if a string has all unique characters
• Determine if a string has all the same characters
• Find words which contains all the vowels
• Find words which contains most consonants
• Find words which contains more than 3 vowels
• Find words which first and last three letters are equals
• Find words which odd letters are consonants and even letters are vowels or vice_versa

Formatting

• String case
• Align columns
• Literals/String
• Repeat a string
• Brace expansion
• Brace expansion using ranges
• Reverse a string
• Phrase reversals
• Comma quibbling
• Special characters
• String concatenation
• Substring/Top and tail
• Commatizing numbers
• Reverse words in a string
• Suffixation of decimal numbers
• Long literals, with continuations
• Numerical and alphabetical suffixes
• Abbreviations, easy
• Abbreviations, simple
• Abbreviations, automatic

Song lyrics/poems/Mad Libs/phrases

• 99 Bottles of Beer
• The Twelve Days of Christmas
• The Old lady swallowed a fly
• The Name Game (a song)
• Magic 8-ball
• Mad Libs

Tokenize

• Word break problem
• Tokenize a string
• Tokenize a string with escaping
• Split a character string based on change of character

Sequences

• Show ASCII table
• De Bruijn sequences
• Self-referential sequences
• Generate lower case ASCII alphabet

ALGOL 68

# find words where replacing "e" with "i" results in another word    #
# use the associative array in the Associate array/iteration task    #
PR read "aArray.a68" PR
# read the list of words and store the words in an associative array #
IF  FILE input file;
    STRING file name = "unixdict.txt";
    open( input file, file name, stand in channel ) /= 0
THEN
    # failed to open the file                                        #
    print( ( "Unable to open """ + file name + """", newline ) )
ELSE
    # file opened OK                                                 #
    BOOL at eof := FALSE;
    # set the EOF handler for the file #
    on logical file end( input file, ( REF FILE f )BOOL:
                                     BEGIN
                                         # note that we reached EOF on the #
                                         # latest read #
                                         at eof := TRUE;
                                         # return TRUE so processing can continue #
                                         TRUE
                                     END
                       );
    # build an associative array of the words                        #
    REF AARRAY words := INIT LOC AARRAY;
    WHILE STRING word;
          get( input file, ( word, newline ) );
          NOT at eof
    DO
        words // word := word
    OD;
    close( input file );
    # find the words where replacing "e" with "i" is still a word    #
    # the words must be at least 6 characters long                   #
    REF AAELEMENT e := FIRST words;
    WHILE e ISNT nil element DO
        IF STRING word = key OF e;
           INT w len = ( UPB word + 1 ) - LWB word;
           w len >= 6
        THEN
            # the word is at least 6 characters long                 #
            [ LWB word : UPB word ]CHAR i word := word[ @ LWB word ];
            FOR w pos FROM LWB i word TO UPB i word DO
                IF i word[ w pos ] = "e" THEN i word[ w pos ] := "i" FI
            OD;
            IF i word /= word THEN
                # replacing "e" with "I" resulted in a new word      #
                IF  words CONTAINSKEY i word THEN
                    # the new word is still a word                   #
                    print( ( word ) );
                    FROM w len + 1 TO 18 DO print( ( " " ) ) OD;
                   print( ( "-> ", i word, newline ) )
                FI
            FI
        FI;
        e := NEXT words
    OD
FI

Output:

Note, the associative array is not traversed in lexicographical order, the output here has been sorted for ease of comparison with other samples.

analyses          -> analysis
atlantes          -> atlantis
bellow            -> billow
breton            -> briton
clench            -> clinch
convect           -> convict
crises            -> crisis
diagnoses         -> diagnosis
enfant            -> infant
enquiry           -> inquiry
frances           -> francis
galatea           -> galatia
harden            -> hardin
heckman           -> hickman
inequity          -> iniquity
inflect           -> inflict
jacobean          -> jacobian
marten            -> martin
module            -> moduli
pegging           -> pigging
psychoses         -> psychosis
rabbet            -> rabbit
sterling          -> stirling
synopses          -> synopsis
vector            -> victor
welles            -> willis

AWK

 
# syntax: GAWK -f CHANGE_E_LETTERS_TO_I_IN_WORDS.AWK unixdict.txt
#
# sorting:
#   PROCINFO["sorted_in"] is used by GAWK
#   SORTTYPE is used by Thompson Automation's TAWK
#
{   if (length($0) < 6) {
      next
    }
    arr1[$0] = ""
}
END {
    PROCINFO["sorted_in"] = "@ind_str_asc" ; SORTTYPE = 1
    for (i in arr1) {
      word = i
      if (gsub(/e/,"i",word) > 0) {
        if (word in arr1) {
          arr2[i] = word
        }
      }
    }
    for (i in arr2) {
      printf("%-9s %s\n",i,arr2[i])
    }
    exit(0)
}
 

Output:

analyses  analysis
atlantes  atlantis
bellow    billow
breton    briton
clench    clinch
convect   convict
crises    crisis
diagnoses diagnosis
enfant    infant
enquiry   inquiry
frances   francis
galatea   galatia
harden    hardin
heckman   hickman
inequity  iniquity
inflect   inflict
jacobean  jacobian
marten    martin
module    moduli
pegging   pigging
psychoses psychosis
rabbet    rabbit
sterling  stirling
synopses  synopsis
vector    victor
welles    willis

Delphi

Library: System.SysUtils

Library: System.Classes

 
program Change_e_letters_to_i_in_words;
 
{$APPTYPE CONSOLE}
 
uses
  System.SysUtils,
  System.Classes;
 
var
  Result: TStringList;
 
begin
  with TStringList.Create do
  begin
    LoadFromFile('unixdict.txt');
    for var i := Count - 1 downto 0 do
      if (Strings[i].Length < 6) then
        Delete(i);
 
    Result := TStringList.Create;
 
    for var i := Count - 1 downto 0 do
    begin
      var w_e := Strings[i];
 
      if w_e.IndexOf('e') = -1 then
        continue;
 
      var w_i := w_e.Replace('e', 'i', [rfReplaceAll]);
      if IndexOf(w_i) > -1 then
        Result.Add(format('%s ──► %s', [w_e.PadRight(12), w_i]));
    end;
 
    Result.Sort;
    writeln(Result.Text);
    Free;
  end;
 
  readln;
end.

Output:

analyses     ──► analysis
atlantes     ──► atlantis
bellow       ──► billow
breton       ──► briton
clench       ──► clinch
convect      ──► convict
crises       ──► crisis
diagnoses    ──► diagnosis
enfant       ──► infant
enquiry      ──► inquiry
frances      ──► francis
galatea      ──► galatia
harden       ──► hardin
heckman      ──► hickman
inequity     ──► iniquity
inflect      ──► inflict
jacobean     ──► jacobian
marten       ──► martin
module       ──► moduli
pegging      ──► pigging
psychoses    ──► psychosis
rabbet       ──► rabbit
sterling     ──► stirling
synopses     ──► synopsis
vector       ──► victor
welles       ──► willis

F#

 
// Change 'e' to 'i' in words. Nigel Galloway: February 18th., 2021
let g=[|use n=System.IO.File.OpenText("unixdict.txt") in while not n.EndOfStream do yield n.ReadLine()|]|>Array.filter(fun n->n.Length>5)
let fN g=(g,(Seq.map(fun n->if n='e' then 'i' else n)>>Array.ofSeq>>System.String)g)
g|>Array.filter(Seq.contains 'e')|>Array.map fN|>Array.filter(fun(_,n)-> Array.contains n g)|>Array.iter(fun(n,g)->printfn "%s ->  %s" n g)
 

Output:

analyses ->  analysis
atlantes ->  atlantis
bellow ->  billow
breton ->  briton
clench ->  clinch
convect ->  convict
crises ->  crisis
diagnoses ->  diagnosis
enfant ->  infant
enquiry ->  inquiry
frances ->  francis
galatea ->  galatia
harden ->  hardin
heckman ->  hickman
inequity ->  iniquity
inflect ->  inflict
jacobean ->  jacobian
marten ->  martin
module ->  moduli
pegging ->  pigging
psychoses ->  psychosis
rabbet ->  rabbit
sterling ->  stirling
synopses ->  synopsis
vector ->  victor
welles ->  willis

Factor

USING: assocs binary-search formatting io.encodings.ascii
io.files kernel literals math sequences splitting ;
 
CONSTANT: words $[ "unixdict.txt" ascii file-lines ]
 
words
[ length 5 > ] filter
[ CHAR: e swap member? ] filter
[ dup "e" "i" replace ] map>alist
[ nip words sorted-member? ] assoc-filter   ! binary search
[ "%-9s -> %s\n" printf ] assoc-each

Output:

analyses  -> analysis
atlantes  -> atlantis
bellow    -> billow
breton    -> briton
clench    -> clinch
convect   -> convict
crises    -> crisis
diagnoses -> diagnosis
enfant    -> infant
enquiry   -> inquiry
frances   -> francis
galatea   -> galatia
harden    -> hardin
heckman   -> hickman
inequity  -> iniquity
inflect   -> inflict
jacobean  -> jacobian
marten    -> martin
module    -> moduli
pegging   -> pigging
psychoses -> psychosis
rabbet    -> rabbit
sterling  -> stirling
synopses  -> synopsis
vector    -> victor
welles    -> willis

FreeBASIC

#define NULL 0
 
type node
    word as string*32   'enough space to store any word in the dictionary
    nxt as node ptr
end type
 
function addword( tail as node ptr, word as string ) as node ptr
    'allocates memory for a new node, links the previous tail to it,
    'and returns the address of the new node
    dim as node ptr newnode = allocate(sizeof(node))
    tail->nxt = newnode
    newnode->nxt = NULL
    newnode->word = word
    return newnode
end function
 
function length( word as string ) as uinteger
    'necessary replacement for the built-in len function, which in this
    'case would always return 32
    for i as uinteger = 1 to 32
        if asc(mid(word,i,1)) = 0 then return i-1
    next i
    return 999
end function
 
dim as string word
dim as node ptr tail = allocate( sizeof(node) )
dim as node ptr head = tail, curr = head, currj
tail->nxt = NULL
tail->word = "XXXXHEADER"
 
open "unixdict.txt" for input as #1
while true
    line input #1, word
    if word = "" then exit while
    if length(word)>5 then tail = addword( tail, word )
wend
close #1
 
dim as string tempword
dim as boolean changed
 
while curr->nxt <> NULL
    changed = false
    tempword = curr->word
    for i as uinteger = 1 to length(tempword)
        if mid(tempword,i,1) = "e" then
            tempword = left(tempword,i-1) + "i" + mid(tempword, i+1, length(tempword)-i)
            changed = true
        end if
    next i
    if changed = true then
        currj = head
        while currj->nxt <> NULL
            if currj->word = tempword then print curr->word, tempword
            currj=currj->nxt
        wend
    end if
    curr = curr->nxt
wend

Output:

analyses                                  analysis
atlantes                                  atlantis
bellow                                    billow
breton                                    briton
clench                                    clinch
convect                                   convict
crises                                    crisis
diagnoses                                 diagnosis
enfant                                    infant
enquiry                                   inquiry
frances                                   francis
galatea                                   galatia
harden                                    hardin
heckman                                   hickman
inequity                                  iniquity
inflect                                   inflict
jacobean                                  jacobian
marten                                    martin
module                                    moduli
pegging                                   pigging
psychoses                                 psychosis
rabbet                                    rabbit
sterling                                  stirling
synopses                                  synopsis
vector                                    victor

welles                                    willis

Go

package main
 
import (
    "bytes"
    "fmt"
    "io/ioutil"
    "log"
    "sort"
    "strings"
    "unicode/utf8"
)
 
func main() {
    wordList := "unixdict.txt"
    b, err := ioutil.ReadFile(wordList)
    if err != nil {
        log.Fatal("Error reading file")
    }
    bwords := bytes.Fields(b)
    var words []string
    for _, bword := range bwords {
        s := string(bword)
        if utf8.RuneCountInString(s) > 5 {
            words = append(words, s)
        }
    }
    count := 0
    le := len(words)
    for _, word := range words {
        if strings.ContainsRune(word, 'e') {
            repl := strings.ReplaceAll(word, "e", "i")
            ix := sort.SearchStrings(words, repl) // binary search
            if ix < le && words[ix] == repl {
                count++
                fmt.Printf("%2d: %-9s -> %s\n", count, word, repl)
            }
        }
    }
}

Output:

 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

Julia

See Alternade_words for the foreachword function.

e2i(w, d) = (if 'e' in w   s = replace(w, "e" => "i"); haskey(d, s) && return "$w => $s" end; "")
foreachword("unixdict.txt", e2i, minlen=6, colwidth=23, numcols=4)
 

Output:

Word source: unixdict.txt

analyses => analysis   atlantes => atlantis   bellow => billow       breton => briton
clench => clinch       convect => convict     crises => crisis       diagnoses => diagnosis
enfant => infant       enquiry => inquiry     frances => francis     galatea => galatia
harden => hardin       heckman => hickman     inequity => iniquity   inflect => inflict
jacobean => jacobian   marten => martin       module => moduli       pegging => pigging     
psychoses => psychosis rabbet => rabbit       sterling => stirling   synopses => synopsis
vector => victor       welles => willis

Perl

#!/usr/bin/perl
 
use strict; # https://rosettacode.org/wiki/Change_e_letters_to_i_in_words
use warnings;
no warnings 'uninitialized';
 
my $file = do { local (@ARGV, $/) = 'unixdict.txt'; <> };
my %i = map { tr/i/e/r => sprintf "%30s  %s\n", tr/i/e/r, $_ }
  grep !/e/, grep 5 <= length, $file =~ /^.*i.*$/gm;
print @i{ split ' ', $file };

Output:

                      analyses  analysis
                      atlantes  atlantis
                         basel  basil
                        bellow  billow
                         belly  billy
                         berth  birth
                         blend  blind
                         bless  bliss
                        breton  briton
                         check  chick
                        clench  clinch
                       convect  convict
                         cress  criss
                        enfant  infant
                         faery  fairy
                         fetch  fitch
                         fleck  flick
                       frances  francis
                       galatea  galatia
                        harden  hardin
                       heckman  hickman
                      jacobean  jacobian
                        marten  martin
                         messy  missy
                        module  moduli
                         oases  oasis
                         peggy  piggy
                     psychoses  psychosis
                         quell  quill
                        rabbet  rabbit
                         ruben  rubin
                         share  shari
                         shell  shill
                         spell  spill
                         style  styli
                      synopses  synopsis
                         taper  tapir
                         tread  triad
                        vector  victor
                         vella  villa
                        welles  willis
                         wells  wills
                         wendy  windy
                         wrest  wrist

Phix

sequence words = get_text("demo/unixdict.txt",GT_LF_STRIPPED)
function chei(string word) return substitute(word,"e","i") end function
function cheti(string word) return length(word)>5 and find('e',word) and find(chei(word),words) end function
sequence chetie = filter(words,cheti), chetei = columnize({chetie,apply(chetie,chei)})
printf(1,"%d words: %v\n",{length(chetei),shorten(chetei,"",2)})

Output:

26 words: {{"analyses","analysis"},{"atlantes","atlantis"},"...",{"vector","victor"},{"welles","willis"}}

Raku

my %ei = 'unixdict.txt'.IO.words.grep({ .chars > 5 and /<[ie]>/ }).map: { $_ => .subst('e', 'i', :g) };
put %ei.grep( *.key.contains: 'e' ).grep({ %ei{.value}:exists }).sort.batch(4)».gist».fmt('%-22s').join: "\n";

Output:

analyses => analysis   atlantes => atlantis   bellow => billow       breton => briton      
clench => clinch       convect => convict     crises => crisis       diagnoses => diagnosis
enfant => infant       enquiry => inquiry     frances => francis     galatea => galatia    
harden => hardin       heckman => hickman     inequity => iniquity   inflect => inflict    
jacobean => jacobian   marten => martin       module => moduli       pegging => pigging    
psychoses => psychosis rabbet => rabbit       sterling => stirling   synopses => synopsis  
vector => victor       welles => willis

REXX

This REXX version doesn't care what order the words in the dictionary are in,   nor does it care what
case  (lower/upper/mixed)  the words are in,   the search for words is   caseless.

It also allows the minimum length to be specified on the command line (CL),   as well as the old character   (that is
to be changed),   the new character   (that is to be changed into),   and as well as the dictionary file identifier.

/*REXX pgm finds words with changed letter  E──►I  and is a word  (in a specified dict).*/
parse arg minL oldC newC iFID .                  /*obtain optional arguments from the CL*/
if minL=='' | minL=="," then minL=  6            /*Not specified?  Then use the default.*/
if oldC=='' | oldC=="," then oldC= 'e'           /* "      "         "   "   "     "    */
if newC=='' | newC=="," then newC= 'i'           /* "      "         "   "   "     "    */
if iFID=='' | iFID=="," then iFID='unixdict.txt' /* "      "         "   "   "     "    */
upper oldC newC                                  /*get uppercase versions of OLDC & NEWC*/
@.=                                              /*default value of any dictionary word.*/
           do #=1  while lines(iFID)\==0         /*read each word in the file  (word=X).*/
           x= strip( linein( iFID) )             /*pick off a word from the input line. */
           $.#= x;       upper x;     @.x= $.#   /*save: original case and the old word.*/
           end   /*#*/                           /*Note: the old word case is left as─is*/
#= # - 1                                         /*adjust word count because of DO loop.*/
finds= 0                                         /*count of changed words found (so far)*/
say copies('─', 30)      #      "words in the dictionary file: "       iFID
say
       do j=1  for #;           L= length($.j)   /*process all the words that were found*/
       if L<minL  then iterate                   /*Is word too short?   Then ignore it. */
       y = $.j;                 upper y          /*uppercase the dictionary word.       */
       if pos(oldC, y)==0  then iterate          /*Have the required character? No, skip*/
       new= translate(y, newC, oldC)             /*obtain a changed (translated) word.  */
       if @.new==''  then iterate                /*New word in the dict.?   No, skip it.*/
       finds= finds + 1                          /*bump the count of found changed words*/
       say right(left($.j, 20), 40) '──►' @.new  /*indent a bit, display the old & new. */
       end        /*j*/
say                                              /*stick a fork in it,  we're all done. */
say copies('─',30)    finds    " words found that were changed with "    oldC    '──►' ,
                      newC",  and with a minimum length of "     minL

output   when using the default inputs:

────────────────────────────── 25104 words in the dictionary file:  unixdict.txt

                    analyses             ──► analysis
                    atlantes             ──► atlantis
                    bellow               ──► billow
                    breton               ──► briton
                    clench               ──► clinch
                    convect              ──► convict
                    crises               ──► crisis
                    diagnoses            ──► diagnosis
                    enfant               ──► infant
                    enquiry              ──► inquiry
                    frances              ──► francis
                    galatea              ──► galatia
                    harden               ──► hardin
                    heckman              ──► hickman
                    inequity             ──► iniquity
                    inflect              ──► inflict
                    jacobean             ──► jacobian
                    marten               ──► martin
                    module               ──► moduli
                    pegging              ──► pigging
                    psychoses            ──► psychosis
                    rabbet               ──► rabbit
                    sterling             ──► stirling
                    synopses             ──► synopsis
                    vector               ──► victor
                    welles               ──► willis

────────────────────────────── 26  words found that were changed with  E ──► I,  and with a minimum length of  6

Ring

 
load "stdlib.ring"
 
cStr = read("unixdict.txt")
wordList = str2list(cStr)
num = 0
 
see "working..." + nl
see "Words are:" + nl
 
ln = len(wordList)
for n = ln to 1 step -1
    if len(wordList[n]) < 6
       del(wordList,n)
    ok
next
 
for n = 1 to len(wordList)
    ind = substr(wordList[n],"e") 
    if ind > 0
       str = substr(wordList[n],"e","i")
       indstr = find(wordList,str)
       if indstr > 0
          num = num + 1
          see "" + num + ". " + wordList[n] + " => " + str + nl
       ok
    ok 
next
 
see "done..." + nl
 

Output:

working...
Words are:
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
done...

Swift

import Foundation
 
func loadDictionary(path: String, minLength: Int) throws -> Set<String> {
    let contents = try String(contentsOfFile: path, encoding: String.Encoding.ascii)
    return Set<String>(contents.components(separatedBy: "\n").filter{$0.count >= minLength})
}
 
func pad(string: String, width: Int) -> String {
    return string.count >= width ? string
        : string + String(repeating: " ", count: width - string.count)
}
 
do {
    let dictionary = try loadDictionary(path: "unixdict.txt", minLength: 6)
    var words: [(String,String)] = []
    for word1 in dictionary {
        let word2 = word1.replacingOccurrences(of: "e", with: "i")
        if word1 != word2 && dictionary.contains(word2) {
            words.append((word1, word2))
        }
    }
    words.sort(by: {$0 < $1})
    for (n, (word1, word2)) in words.enumerated() {
        print(String(format: "%2d. %@ -> %@", n + 1, pad(string: word1, width: 10), word2))
    }
} catch {
    print(error.localizedDescription)
}

Output:

 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

Wren

Library: Wren-sort

Library: Wren-fmt

import "io" for File
import "/sort" for Find
import "/fmt" for Fmt
 
var wordList = "unixdict.txt" // local copy
var count = 0
var words = File.read(wordList).trimEnd().split("\n").
    where { |w| w.count > 5 }.toList
for (word in words) {
    if (word.contains("e")) {
        var repl = word.replace("e", "i")
        if (Find.first(words, repl) >= 0) {  // binary search
            count = count + 1
            Fmt.print("$2d: $-9s -> $s", count, word, repl)
        }
    }
}

Output:

 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