Wolfram 언어™

단어 머리 글자의 알파벳 순 그룹화

WordList에서 200개의 러시아어 샘플 목록으로 가져옵니다.

In[1]:=

russianWords = RandomSample[WordList[Language -> "Russian"], 200];

러시아어 알파벳을 사용하여 검색할 단어를 정렬합니다.

In[2]:=

russianWords = AlphabeticSort[russianWords, "Russian"];

단어의 머리 글자로 그룹화한 단어의 OpenerView 구조를 작성합니다.

In[3]:=

buildOpenerViewerLevelN[words_, n_] := Column[If[Length[#] === 1, #[[1]], Replace[OpenerView[{Row[{Style[StringTake[#[[1]], n], Gray], " (", Length[#], ")"}], buildOpenerViewerLevelN[#, n + 1]}], OpenerView[{_, Column[{x_}]}] :> x]] & /@ SplitBy[words, StringTake[#, UpTo[n]] &]]

In[4]:=

buildOpenerViewerLevelN[russianWords, 1]

Out[4]=