When I saw this picture on Linkedin I thought: "What are the other 100 points words?"
Well, pretty easy with WL, using just 3 lines of code. First let's create our wordValue function:
index = First/@PositionIndex@CharacterRange["a","z"];
wordValue[word_String]:= Total[Lookup[index, #, 0]&/@StringPartition[ToLowerCase@RemoveDiacritics@word,1]]
Testing the code we have:
wordValue/@{"knowledge", "hardwork", "attitude"}
{96, 98, 100}
Great, the check is ok! Now what are the other words? One more line:
words100 = Select[DictionaryLookup[], wordValue[#]==100&]
Now, take care with "useless and inefficient elephants" in your company, these are 100 points words!
wordValue/@{"useless", "inefficient", "elephants"}
{100, 100, 100}
Here is a Word Cloud with a sample of 100 words from the total of 1054:
WordCloud[RandomSample[words100, 100], WordOrientation -> "Random"]
