Alfabetos incluindo uma letra particular: Novos Recursos do Wolfram Language 11

Alfabetos incluindo uma letra particular

Usando Alphabet e a lista de entidades do tipo "Alphabet", é fácil descobrir quais alfabetos contém uma letra em particular.

Tente saber quais deles contém as letras ø, æ, ñ, or и.

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

Obtenha variantes da vogal usando AlphabeticOrder.

In[6]:=

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

Out[6]=

Crie uma função para extrair os idiomas que contêm uma letra em particular.

In[7]:=

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

Mostre as variantes da vogal o e seus alfabetos.

mostre o input completo da Wolfram Language

In[8]:=

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

Out[8]=