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.

Copiar al portapapeles.

In[1]:=

✖

Short[words = RandomWord[30]]

Out[1]//Short=

Construya sus respectivas formas base con WordStem.

Copiar al portapapeles.

In[2]:=

✖

Short[wordstems = WordStem[words]]

Out[2]//Short=

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

Copiar al portapapeles.

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.

Copiar al portapapeles.

In[4]:=

✖

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

Visualice cada par en una retícula de texto.

Copiar al portapapeles.

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]=