xWords

Interesting x-related words

José M. Martín-García
Instituto de Estructura de la Materia
Consejo Superior de Investigaciones Científicas
C/ Serrano 123, Madrid 28006, SPAIN

Date[]

Off[General::spell, General::spell1]

Load Mathematica's English dictionary, converting it into lowercase:

dictionary = 
        ToLowerCase /@ 
          ReadList["/usr/local/Wolfram/Mathematica/5.2/SystemFiles/\
Dictionaries/English/dictionary.txt", String];

Length[dictionary]

Break words in characters:

dict = Characters /@ dictionary;

Extract words starting with "x":

StringJoin /@ (xdict = Cases[dict, {"x", __}])

Extract words starting with "ex":

exdict = Cases[dict, {"e", "x", __}];

Select words starting with "s", but not having a vowel or h after it:

\(\(sdict = 
        DeleteCases[
          Cases[dict, {"s", __}], {"s", "a" | "e" | "i" | "o" | "u" | "h", __}];\)\)

Length[sdict]

Remove the "s" or "x" or "ex":

sict = Rest /@ sdict;

xict = Rest /@ xdict;

exict = Rest /@ Rest /@ exdict;

Cases starting with "x". Nothing interesting:

xcases = StringJoin /@ Intersection[dict, xict]

Cases starting with "s":

Length[scases = StringJoin /@ Intersection[dict, sict]]

scases // ColumnForm

Cases starting with "ex":

Length[excases = StringJoin /@ Intersection[dict, exict]]

excases // ColumnForm

Some interesting cases:

xKit
xKill
xPace
xCare
xCore
xParser
xPrint
xTool
xWord

xAct
xAmple
xCite
xPert
xPlain
xPort
xPress
xClaim