WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

字句解析

テキスト内の単語の大きさをその単語が起る頻度に比例したものにする．

Wolfram Language code: Text[Row[With[{data = ExampleData[{"Text", "DeclarationOfIndependence"}, "Words"]}, Table[Style[data[[i]], 10 N[Log[Count[Take[data, i], data[[i]]]]]], {i, Length[data]}]], " "]]