含有特定字母的字母表
使用 Alphabet 和 "Alphabet" 类型实体列表, 可以简单找出哪个字母表含有特定字母.
尝试找出哪个含有字母 ø、æ、ñ 或 и.
In[1]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_33.png)
alphabetEntities = EntityList["Alphabet"];
In[2]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_34.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ø"] &]
Out[2]=
![](assets.zh/alphabets-including-a-particular-letter/O_20.png)
In[3]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_35.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "æ"] &]
Out[3]=
![](assets.zh/alphabets-including-a-particular-letter/O_21.png)
In[4]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_36.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ñ"] &]
Out[4]=
![](assets.zh/alphabets-including-a-particular-letter/O_22.png)
In[5]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_37.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "и"] &]
Out[5]=
![](assets.zh/alphabets-including-a-particular-letter/O_23.png)
使用 AlphabeticOrder 获取元音 o 的变种.
In[6]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_38.png)
lettersO =
Select[CharacterRange[1, 65535],
AlphabeticOrder["o", #, IgnoreDiacritics -> True,
IgnoreCase -> False] == 0 &]
Out[6]=
![](assets.zh/alphabets-including-a-particular-letter/O_24.png)
构建函数提取含有特定字母的语种.
In[7]:=
![Click for copyable input](assets.zh/alphabets-including-a-particular-letter/In_39.png)
alphabets = Alphabet /@ alphabetEntities;
getAlphabet[letter_] :=
Pick[alphabetEntities, MemberQ[#, letter] & /@ alphabets];
显示 o 元音变种和其字母表.
显示完整的 Wolfram 语言输入
Out[8]=
![](assets.zh/alphabets-including-a-particular-letter/O_25.png)