Алфавиты с определённой буквой : Новое в системе Wolfram Language 11

Алфавиты с определённой буквой

С использованием Alphabet и списка сущностей типа "Alphabet", поиск алфавитов, содержащих определённую букву, лёгок в исполнении.

Попробуйте найти, какие алфавиты имеют буквы ø, æ, ñ, или и.

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

Запросите варианты гласной "o", используя AlphabeticOrder.

In[6]:=

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

Out[6]=

Задайте функцию для извлечения языков, содержащих определённую букву.

In[7]:=

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

Отобразите варианты гласной "o" и алфавиты с ней.

код на языке Wolfram Language целиком

In[8]:=

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

Out[8]=