[交流] Euler 工程 第四十二题: 三角词已有2人参与

# Project Euler Problem 42
#
# Read Words
#

from math import sqrt

f = open("words.txt", "r")
words = [eval(s) for s in f.readline().split(",")]
f.close()
wordsVals = [sum([ord(c)-ord('A')+1 for c in s]) for s in words]

c = 0
for x in wordsVals:
    n = 1 + 8*x
    if int(sqrt(n))**2 == n:
        c += 1
print c

% Elapsed time is 0.214204 seconds.
% ans =
%    162
function result = euler42()
tic;
fid = fopen('D:\back\test\euler\words.txt');
words = fgets(fid);
fclose(fid);
words = strrep(words,'"','');
wordlist = regexp(words,',','split');
result = 0;
% words with 20 letters is not common, if all 'z',
% 20*26=520,40*41/2 must be over 520,so make trilist first
triList = (1:40).*(2:41)/2;
for i=1:length(wordlist)
    if ismember(sum((lower(wordlist{i})-repmat('a',1,length(wordlist{i})))+1),triList)
        result = result+1;
    end
end
toc;
end