Of triangle numbers and word values

Problem 42.R

rm(list = ls())
# from http://projecteuler.net/index.php?section=problems&id=42

Text <- readLines("http://projecteuler.net/project/words.txt")
TextString <- gsub("\"", "", unlist(strsplit(Text, "\",\"")))

TriangleNumbers <- cumsum(1:100)

StringLetters <- strsplit(TextString, "")
LetterRank <- rank(LETTERS)
names(LetterRank) <- LETTERS

WordValues <- unlist(lapply(StringLetters, function(x){sum(LetterRank[x])}))
names(WordValues) <- TextString

sort(WordValues)

IsTriangleWord <- is.element(WordValues, TriangleNumbers)

table(IsTriangleWord)