Change e letters to i in words: Difference between revisions

=={{header|FutureBasic}}==

<syntaxhighlight lang="futurebasic">include "NSLog.incl"

void local fn DoIt

CFURLRef url

CFStringRef string, wd

ErrorRef err = NULL

CFArrayRef array

CFMutableArrayRef mutArray

url = fn URLWithString( @"https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt" )

string = fn StringWithContentsOfURL( url, NSUTF8StringEncoding, @err )

if ( string )

array = fn StringComponentsSeparatedByCharactersInSet( string, fn CharacterSetNewlineSet )

mutArray = fn MutableArrayWithCapacity(0)

for wd in array

if ( len(wd) > 5 and fn StringContainsString( wd, @"e" ) )

wd = fn StringByReplacingOccurrencesOfString( wd, @"e", @"i" )

if ( fn ArrayContainsObject( array, wd ) )

MutableArrayAddObject( mutArray, wd )

end if

end if

next

string = fn ArrayComponentsJoinedByString( mutArray, @"\n" )

NSLog(@"%@",string)

else

NSLog(@"%@",err)

end if

end fn

fn DoIt

HandleEvents</syntaxhighlight>

{{out}}

<pre>

analysis

atlantis

billow

briton

clinch

convict

crisis

diagnosis

infant

inquiry

francis

galatia

hardin

hickman

iniquity

inflict

jacobian

martin

moduli

pigging

psychosis

rabbit

stirling

synopsis

victor

willis

</pre>