Alfabetos incluyendo una letra particular: Nuevo en Wolfram Language 11

Alfabetos incluyendo una letra particular

Usando Alphabet y la lista de entidades del tipo "Alphabet", es fácil encontrar cuales alfabetos contienen una letra en particular.

Intente encontrar cuales tienen las letras ø, æ, ñ o и.

In[1]:=

alphabetEntities = EntityList["Alphabet"];

In[2]:=

Select[alphabetEntities, MemberQ[Alphabet[#], "ø"] &]

Out[2]=

In[3]:=

Select[alphabetEntities, MemberQ[Alphabet[#], "æ"] &]

Out[3]=

In[4]:=

Select[alphabetEntities, MemberQ[Alphabet[#], "ñ"] &]

Out[4]=

In[5]:=

Select[alphabetEntities, MemberQ[Alphabet[#], "и"] &]

Out[5]=

Obtenga variantes de la vocal o usando AlphabeticOrder.

In[6]:=

lettersO = 
 Select[CharacterRange[1, 65535], 
  AlphabeticOrder["o", #, IgnoreDiacritics -> True, 
     IgnoreCase -> False] == 0 &]

Out[6]=

Construya una función para extraer cuales lenguajes contiene una letra en particular.

In[7]:=

alphabets = Alphabet /@ alphabetEntities;
getAlphabet[letter_] := 
  Pick[alphabetEntities, MemberQ[#, letter] & /@ alphabets];

Muestre las variantes de la vocal o y sus alfabetos.

muestre la entrada completa de Wolfram Language

In[8]:=

TextGrid[DeleteCases[{#, Row@getAlphabet[#]} & /@ Rest[lettersO] , {_,
    Row@{}}], Frame -> All, Alignment -> {Left, Center}]

Out[8]=