24小时热门版块排行榜

返回列表

holmescn

金虫 (正式写手)

程序强帖: 37
应助: 1 (幼儿园)
金币: 1918.8
散金: 275
红花: 1
帖子: 699
在线: 102.6小时
虫号: 913482
注册: 2009-11-26
性别: GG
专业: 凝聚态物性 II ：电子结构

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

希望在放假回家前,能完成前50个题

所谓三角数, 其通项为:t(n) = n(n+1)/2, 前10个三角数:
1, 3, 6, 10, 15, 21, 28, 36, 45, 55, .....

如果把一个单词各个字母的值(A~1, Z~26)相加作为这个单词的值, 比如SKY --> 19 + 11 + 26 = 55 = t(10)
如果一个单词的值是一个三角数,那么这个单词就叫一个三角词. 下面这个连接的文件中有将近2000个常用英语单词,
它们中有多少个三角词呢?

wordliist.txt

回复此楼

» 猜你喜欢

职称评审没过，求安慰已经有56人回复
最近几年招的学生写论文不引自己组发的文章已经有5人回复
26申博自荐已经有3人回复
A期刊撤稿已经有4人回复

1楼 2011-07-14 17:23:13

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

holmescn

金虫 (正式写手)

程序强帖: 37
应助: 1 (幼儿园)
金币: 1918.8
散金: 275
红花: 1
帖子: 699
在线: 102.6小时
虫号: 913482
注册: 2009-11-26
性别: GG
专业: 凝聚态物性 II ：电子结构

★ ★ ★
jjdg(金币+3): 辛苦了 2011-07-14 20:11:03

python:

CODE:

# 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

Result: 162
Elapsed Time: 0.058s

赞一下(1人)

回复此楼

2楼2011-07-14 17:53:07

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

holmescn

金虫 (正式写手)

程序强帖: 37
应助: 1 (幼儿园)
金币: 1918.8
散金: 275
红花: 1
帖子: 699
在线: 102.6小时
虫号: 913482
注册: 2009-11-26
性别: GG
专业: 凝聚态物性 II ：电子结构

★
jjdg(金币+1): 感谢参与 2011-07-14 20:10:51

这样一个题,用python写需要30分钟啊. 看来我水平真不行啊.

赞一下(1人)

回复此楼

3楼2011-07-14 17:54:15

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

libralibra

至尊木虫 (著名写手)

骠骑将军

程序强帖: 40
应助: 817 (博后)
金币: 12914.1
红花: 64
帖子: 2238
在线: 287.3小时
虫号: 696514
注册: 2009-02-05
专业: 计算机软件

★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
jjdg(金币+2): 感谢参与 2011-07-14 20:10:39

matlab的

CODE:

 % 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