User Portlet User Portlet

Discussions
I found this could be easily achieved in one line of code WordCloud[ Select[WordList[], Total[LetterNumber[Characters[#]]] == 100 &], WordSpacings -> "3", WordOrientation -> "Random"]