Alphabets Including a Particular Letter: New in Wolfram Language 11

Alphabets Including a Particular Letter

Using Alphabet and the list of entities of "Alphabet" type, it is easy to find which alphabets contain a particular letter.

Try to find which ones have the letters ø, æ, ñ, 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]=

Get variants of the vowel o using AlphabeticOrder.

In[6]:=

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

Out[6]=

Build a function to extract which languages contain a particular letter.

In[7]:=

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

Show the o vowel variants and their alphabets.

show complete Wolfram Language input

In[8]:=

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

Out[8]=