Jump to content

Change e letters to i in words: Difference between revisions

m
Line 1,063:
ieTwins s =
[ (w, twin)
| w <- [x | x <- allWords, 5 < length xlongWords, 'e' `elem` x],
let twin = iForE w,
S.member twin lexicon
]
where
allWordslongWords = filter ((5 <) . length) (lines s)
lexicon = S.fromList allWords$ filter ('i' `elem`) longWords
 
iForE :: String -> String
9,655

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.