Алфавиты с определённой буквой
С использованием Alphabet и списка сущностей типа "Alphabet", поиск алфавитов, содержащих определённую букву, лёгок в исполнении.
Попробуйте найти, какие алфавиты имеют буквы ø, æ, ñ, или и.
In[1]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_33.png)
alphabetEntities = EntityList["Alphabet"];
In[2]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_34.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ø"] &]
Out[2]=
![](assets.ru/alphabets-including-a-particular-letter/O_20.png)
In[3]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_35.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "æ"] &]
Out[3]=
![](assets.ru/alphabets-including-a-particular-letter/O_21.png)
In[4]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_36.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "ñ"] &]
Out[4]=
![](assets.ru/alphabets-including-a-particular-letter/O_22.png)
In[5]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_37.png)
Select[alphabetEntities, MemberQ[Alphabet[#], "и"] &]
Out[5]=
![](assets.ru/alphabets-including-a-particular-letter/O_23.png)
Запросите варианты гласной "o", используя AlphabeticOrder.
In[6]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_38.png)
lettersO =
Select[CharacterRange[1, 65535],
AlphabeticOrder["o", #, IgnoreDiacritics -> True,
IgnoreCase -> False] == 0 &]
Out[6]=
![](assets.ru/alphabets-including-a-particular-letter/O_24.png)
Задайте функцию для извлечения языков, содержащих определённую букву.
In[7]:=
![Click for copyable input](assets.ru/alphabets-including-a-particular-letter/In_39.png)
alphabets = Alphabet /@ alphabetEntities;
getAlphabet[letter_] :=
Pick[alphabetEntities, MemberQ[#, letter] & /@ alphabets];
Отобразите варианты гласной "o" и алфавиты с ней.
код на языке Wolfram Language целиком
Out[8]=
![](assets.ru/alphabets-including-a-particular-letter/O_25.png)