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]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_33.png)
alphabetEntities = EntityList["Alphabet"];
In[2]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_34.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ø"] &]
Out[2]=
![](assets.en/alphabets-including-a-particular-letter/O_20.png)
In[3]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_35.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "æ"] &]
Out[3]=
![](assets.en/alphabets-including-a-particular-letter/O_21.png)
In[4]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_36.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ñ"] &]
Out[4]=
![](assets.en/alphabets-including-a-particular-letter/O_22.png)
In[5]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_37.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "и"] &]
Out[5]=
![](assets.en/alphabets-including-a-particular-letter/O_23.png)
Get variants of the vowel o using AlphabeticOrder.
In[6]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_38.png)
lettersO =
Select[CharacterRange[1, 65535],
AlphabeticOrder["o", #, IgnoreDiacritics -> True,
IgnoreCase -> False] == 0 &]
Out[6]=
![](assets.en/alphabets-including-a-particular-letter/O_24.png)
Build a function to extract which languages contain a particular letter.
In[7]:=
![Click for copyable input](assets.en/alphabets-including-a-particular-letter/In_39.png)
alphabets = Alphabet /@ alphabetEntities;
getAlphabet[letter_] :=
Pick[alphabetEntities, MemberQ[#, letter] & /@ alphabets];
Show the o vowel variants and their alphabets.
show complete Wolfram Language input
Out[8]=
![](assets.en/alphabets-including-a-particular-letter/O_25.png)