特定の文字を含むアルファベット: Wolfram言語 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]=

AlphabeticOrderを使って母音oの異形を求める．

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言語入力を表示する

In[8]:=

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

Out[8]=