Genere y verifique palabras base

La versión 11 incluye nuevas herramientas para encontrar palabras bases, eliminando plurales, inflexiones, etc. La palabra base aún lleva el significado de la palabra original, pero frecuentemente no posee la forma de la palabra que aparece en el diccionario. Este ejemplo muestra instancias de ambas situaciones.

Genere una lista de 30 palabras al azar del inglés con RandomWord.

In[1]:=

Short[words = RandomWord[30]]

Out[1]//Short=

Construya sus respectivas formas base con WordStem.

In[2]:=

Short[wordstems = WordStem[words]]

Out[2]//Short=

Elimine las palabras que son idénticas a sus formas base.

In[3]:=

list = DeleteCases[Transpose[{words, wordstems}], {w_, w_}];

Resalte en color azul las formas base que también son palabras que se encuentran en un diccionario en inglés utilizadas por la nueva función DictionaryWordQ.

In[4]:=

list = Replace[ list, {w_, sw_?DictionaryWordQ} :> {w, Style[sw, Blue]}, {1}];

Visualice cada par en una retícula de texto.

In[5]:=

TextGrid[ Prepend[ Partition[Flatten@list, UpTo[4]], {Style["Word", Bold, Italic], Style["Stem", Bold, Italic], Style["Word", Bold, Italic], Style["Stem", Bold, Italic]} ], Spacings -> {2, 1}, Dividers -> {{1 -> True, 3 -> True, 5 -> True}, {1 -> True, 2 -> True, -1 -> True}} ]

Out[5]=