版塊導航: 正在加載中...

客戶端APP下載

論文輔導

調(diào)劑小程序

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

本帖產(chǎn)生 2 個程序強帖，點擊這里進行查看

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

[交流] Euler 工程第廿二題: 姓的總分已有5人參與

附件中是一個包含了5前個姓的文件。先把它按字母表排序，然后計算每個姓的值，并乘以這個姓在文件中的序數(shù)得到這個姓的分數(shù)。
例如，COLIN，它的字母值是：3+15+12+9+14=53，在排序后的列表中，它在第938位，這樣COLIN的得分為：53*938=49714
那么這個文件中所有姓的總分是多少？

回復此樓

» 本帖已獲得的紅花（最新10朵）

holmescn

» 猜你喜歡

290分調(diào)劑求助已經(jīng)有4人回復
0703化學調(diào)劑，求導師收已經(jīng)有12人回復
320分，材料與化工專業(yè)，求調(diào)劑已經(jīng)有14人回復
求調(diào)劑已經(jīng)有5人回復
070300化學354求調(diào)劑已經(jīng)有9人回復
求調(diào)劑：085600材料與化工，考材科基，總分319 已經(jīng)有10人回復
本科211生物醫(yī)學工程085409求調(diào)劑339分已經(jīng)有5人回復
313求調(diào)劑已經(jīng)有5人回復
362求調(diào)劑已經(jīng)有3人回復
化學工程085602 305分求調(diào)劑已經(jīng)有27人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

Project Euler 50 歐拉工程 50 題已經(jīng)有12人回復
Project Euler 48 歐拉工程 48 題已經(jīng)有30人回復
Project Euler 45 歐拉工程 45 題已經(jīng)有7人回復
Euler 工程第廿九題：有多少不同的項? 已經(jīng)有30人回復
Euler 工程第廿六題：最長的循環(huán)節(jié) 已經(jīng)有9人回復
Euler 工程第廿四題：全排列的第100萬項已經(jīng)有19人回復
Euler 工程第十六題：2的1000次方的各項和已經(jīng)有14人回復
Euler 工程第十五題：從左上角到右下角有多少條路？已經(jīng)有5人回復
Euler 工程第14題：找最長的數(shù)列已經(jīng)有9人回復
Euler Project Q13 歐拉工程第十三題已經(jīng)有20人回復
Euler Project Q12 歐拉工程第十二題已經(jīng)有23人回復
Euler 工程第十一題：相鄰元素乘積最大已經(jīng)有10人回復
Euler Project Q7. 歐拉工程第七題已經(jīng)有14人回復
Euler 工程第六題：平方和與和的平方差多少？已經(jīng)有5人回復
Euler 工程第二題：Fibonacci數(shù)列中小于4百萬的偶數(shù)的和已經(jīng)有8人回復

1樓 2011-06-05 00:28:39

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★ ★ ★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
dubo(金幣+1): 謝謝交流 2011-06-05 12:17:18
微塵、夢想(金幣+4): 2011-06-06 20:19:45

matlab code

CODE:

 %% What is the total of all the name scores in the file?

% For example, when the list is sorted into alphabetical order, 

% COLIN, which is worth 3 + 15 + 12 + 9 + 14 = 53, is the 938th name in the list. 

% So, COLIN would obtain a score of 938 × 53 = 49714.

function result = euler22()

tic;

fid = fopen('D:\euler\names.txt');

names = fgets(fid); % 讀取全部內(nèi)容到字符串

fclose(fid);

names = strrep(names,'"',''); % 刪除"

namelist = regexp(names,',','split'); % 用逗號分隔

sname = sort(namelist); % 排序

result = 0;

for i=1:length(sname) % 循環(huán)

    curname = lower(sname{i}); % 全小寫

    curname = curname-repmat('a',1,length(curname)); % 與全a作差

    cursum = sum(curname+1); % 求和

    result = result+cursum*i; % 乘順序計算score,累加

end

toc;

end

結果時間

CODE:

 % Elapsed time is 0.307340 seconds.

% ans =

%    871198282

贊一下(3人)

回復此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

2樓2011-06-05 01:32:32

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

huycwork

金蟲 (著名寫手)

程序強帖: 22
應助: 0 (幼兒園)
金幣: 953
散金: 663
紅花: 8
沙發(fā): 13
帖子: 1080
在線: 264.1小時
蟲號: 1257243
注冊: 2011-04-06
專業(yè): 金融學

★ ★ ★ ★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
dubo(金幣+1): 謝謝交流 2011-06-05 12:17:28
微塵、夢想(金幣+4): 2011-06-06 20:19:54

涉及到文本處理的慣例是Perl：

CODE:

#!/usr/bin/perl

open F, "<", "names.txt";

$f = ;

@ns = sort eval ($f);

foreach(@ns){

    local (*v) = \$_;

    $v += ord($_) - ord('A') + 1 foreach(/(.)/g);

}

unshift @ns, 0;

$s += $_ * $ns[$_] foreach(1..@ns);

print $s;

[ Last edited by huycwork on 2011-6-6 at 09:27 ]

贊一下(3人)

回復此樓

漩渦的中心有一塊空地，空空的。

3樓2011-06-05 10:12:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangww2011

木蟲 (著名寫手)

程序強帖: 13
應助: 11 (小學生)
金幣: 4023.1
散金: 2709
紅花: 18
沙發(fā): 1
帖子: 1915
在線: 1537.1小時
蟲號: 772953
注冊: 2009-05-17
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
xzhdty(金幣+2): 謝謝交流 2011-06-05 14:21:41
余澤成(程序強帖+1): 鼓勵交流！ 2011-06-18 15:55:16

話說perl版的真是簡潔
還是用C寫吧，雖然看著挺不爽的

CODE:

#include

#include

#include

#define SIZE 50000

inline int cmp(const void *p1,const void *p2)

{

        return strcmp((char *)p1,(char *)p2);

}

inline int count(const char *p){

        int i=0,res=0;

        while(p[i]!='\0')res+=p[i++]-64;

        return res;

}

long euler22(){

        int i=0,length;

        FILE *fp=fopen("names.txt", "r");

        if(fp == 0) return -1;

        char str[SIZE];

        if (NULL == fgets(str, SIZE, fp)) {

                return -1;

        }

        fclose(fp);

        char *delims="\",";

        char *p=strtok(str,delims);

        char names[6000][15];

        while(p!=NULL){

                strcpy(names[i++],p);

                p=strtok(NULL,delims);

        }

        length=i;

        qsort(names,length,sizeof(names[0]),cmp);

        long  sum=0;

        for(i=0;i
                sum+=(i+1)*count(names[i]);

        return sum;

}

int main(void){

        printf("%ld\n",euler22());

        return 0;

}

贊一下(3人)

回復此樓

4樓2011-06-05 13:42:07

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

libralibra

至尊木蟲 (著名寫手)

驃騎將軍

程序強帖: 40
應助: 817 (博后)
金幣: 12914.1
紅花: 64
帖子: 2238
在線: 287.3小時
蟲號: 696514
注冊: 2009-02-05
專業(yè): 計算機軟件

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
jjdg(金幣+1): 端午節(jié)快樂 2011-06-06 03:21:53

上python

CODE:

#! usr/bin/env python

import string

s = open('names.txt').read()[1:-1].split('","')

s.sort()

print sum([(i+1)*sum([string.ascii_uppercase.index(c)+1 for c in s[i]]) for i in xrange(len(s))])

贊一下(2人)

回復此樓

matlab/VB/python/c++/Java寫程序請發(fā)QQ郵件:790404545@qq.com

5樓2011-06-05 17:24:10

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangww2011

木蟲 (著名寫手)

程序強帖: 13
應助: 11 (小學生)
金幣: 4023.1
散金: 2709
紅花: 18
沙發(fā): 1
帖子: 1915
在線: 1537.1小時
蟲號: 772953
注冊: 2009-05-17
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
jjdg(金幣+1): 端午節(jié)快樂 2011-06-06 03:21:39

引用回帖:

Originally posted by libralibra at 2011-06-05 17:24:10:
上python

CODE:

#! usr/bin/env python

import string

s = open('names.txt').read()[1:-1].split('","')

s.sort()

print sum([(i+1)*sum([string.ascii_uppercase.index(c)+1 for c in s[i]])

夠簡潔

CODE:

s = open('names.txt').read()[1:-1].split('","')

s.sort()

print sum([(i+1)*sum([ord(c)-64 for c in s[i]]) for i in xrange(len(s))])

[ Last edited by wangww2011 on 2011-6-5 at 18:52 ]

贊一下(2人)

回復此樓

6樓2011-06-05 18:50:23

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

holmescn

金蟲 (正式寫手)

程序強帖: 37
應助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時
蟲號: 913482
注冊: 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★ ★

送鮮花一朵
jjdg(金幣+1): 端午節(jié)快樂 2011-06-06 03:21:14
jjdg(金幣+1): 感謝參與 2011-06-06 03:21:23

都寫得太好了，我都不敢寫了。

贊一下(2人)

回復此樓

7樓2011-06-05 21:25:40

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

huycwork

金蟲 (著名寫手)

程序強帖: 22
應助: 0 (幼兒園)
金幣: 953
散金: 663
紅花: 8
沙發(fā): 13
帖子: 1080
在線: 264.1小時
蟲號: 1257243
注冊: 2011-04-06
專業(yè): 金融學

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
微塵、夢想(金幣+2): 鼓勵多交流！ 2011-06-06 20:20:23

維持最奇怪語言的地位還真是有壓力啊，俺再來三行版：

CODE:

open F, "<", "names.txt";

$s+=++$b*$_ foreach(map{$a=0;$a+=$_ foreach(map{ord($_)-64}(/(.)/g));$a}sort eval);

print $s, "\n";

[ Last edited by huycwork on 2011-6-6 at 13:46 ]

贊一下(2人)

回復此樓

漩渦的中心有一塊空地，空空的。

8樓2011-06-06 13:45:03

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

wangww2011

木蟲 (著名寫手)

程序強帖: 13
應助: 11 (小學生)
金幣: 4023.1
散金: 2709
紅花: 18
沙發(fā): 1
帖子: 1915
在線: 1537.1小時
蟲號: 772953
注冊: 2009-05-17
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結構

★ ★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
微塵、夢想(金幣+2): 鼓勵多交流！ 2011-06-06 20:20:38
ben_ladeng: 2011-08-02 08:08:03

引用回帖:

Originally posted by huycwork at 2011-06-06 13:45:03:
維持最奇怪語言的地位還真是有壓力啊，俺再來三行版：

Perl還是很方便的，有機會學學

CODE:

print sum([(i+1)*sum([ord(c)-64 for c in s]) for i,s in enumerate(sorted(open('names.txt').read()[1:-1].split('","')))])

額我走極端了

[ Last edited by wangww2011 on 2011-6-6 at 17:34 ]

贊一下(3人)

回復此樓

9樓2011-06-06 17:33:28

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

huycwork

金蟲 (著名寫手)

程序強帖: 22
應助: 0 (幼兒園)
金幣: 953
散金: 663
紅花: 8
沙發(fā): 13
帖子: 1080
在線: 264.1小時
蟲號: 1257243
注冊: 2011-04-06
專業(yè): 金融學

★ ★
小木蟲(金幣+0.5):給個紅包，謝謝回帖
dubo(金幣+1): 歡迎討論 2011-06-07 22:46:57

引用回帖:

Originally posted by wangww2011 at 2011-06-06 17:33:28:
Perl還是很方便的，有機會學學

CODE:

print sum([(i+1)*sum([ord(c)-64 for c in s]) for i,s in enumerate(sorted(open('names.txt').read()[1:-1].split('","')))])

額我走極端了 ...

單行程序可是perl的拿手戲

：

CODE:

perl -e '$s+=++$b*$_ foreach(map{$a=0;$a+=$_ foreach(map{ord($_)-64}(/(.)/g));$a}sort eval<>);print $s,\"\n\";' names.txt

不過我很疑惑啊，Perl自帶的數(shù)據(jù)篩子里面居然沒有類似sum這樣把數(shù)組處理成標量的篩子，這種篩子應該很常用才對的。

贊一下(2人)

回復此樓

漩渦的中心有一塊空地，空空的。

10樓2011-06-06 22:15:10

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉(zhuǎn) 我要訂閱樓主 holmescn 的主題更新

返回列表

普通表情龍兔虎貓高級回復 (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 085600材料與化工329分求調(diào)劑 +5	這是有太陽哇 2026-03-25	5/250	2026-03-31 09:59 by luoyongfeng
[考研] 物理學調(diào)劑 +3	小羊36 2026-03-30	3/150	2026-03-31 09:20 by jp9609
[考研] 285求調(diào)劑 +6	AZMK 2026-03-30	9/450	2026-03-31 08:01 by jp9609
[考研] 本科211總分289，08工學真心求調(diào)劑 +3	utopiaE 2026-03-30	3/150	2026-03-30 23:42 by ms629
[考研] 085602化工求調(diào)劑（331分） +8	111@127 2026-03-30	8/400	2026-03-30 21:23 by 研究僧導導
[考研] 生物學學碩，一志愿湖南大學，初試成績338 +7	YYYYYNNNNN 2026-03-26	9/450	2026-03-30 20:29 by YYYYYNNNNN
[考研] 279求調(diào)劑 +4	蝶舞輕繞 2026-03-29	4/200	2026-03-29 09:45 by laoshidan
[考研] 298求調(diào)劑 +4	種圣賜 2026-03-28	4/200	2026-03-29 08:42 by q1092522407
[考研] 305求調(diào)劑 +8	RuiFairyrui 2026-03-28	8/400	2026-03-29 08:22 by fmesaito
[考研] 312，生物學求調(diào)劑 +3	小譯同學abc 2026-03-28	3/150	2026-03-28 15:32 by 落�？伤�
[考研] 070300求調(diào)劑306分 +4	26要上岸 2026-03-27	4/200	2026-03-28 13:06 by 唐沐兒
[考研] 266分，求材料冶金能源化工等調(diào)劑 +7	哇呼哼呼哼 2026-03-27	9/450	2026-03-28 12:22 by zllcz
[考研] 086000調(diào)劑 +3	7901117076 2026-03-26	3/150	2026-03-27 21:34 by Jianing_Mi
[考研] 一志愿上海理工能源動力（085800）310分求調(diào)劑 +3	zhangmingc 2026-03-27	4/200	2026-03-27 19:01 by 給你你注意休息
[考研] 274求調(diào)劑 +17	顧九笙要謙虛 2026-03-24	23/1150	2026-03-27 15:16 by caszguilin
[考研] 085600，材料與化工321分，求調(diào)劑 +9	大饞小子 2026-03-27	9/450	2026-03-27 14:30 by mmm just
[考研] 286求調(diào)劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[考研] 調(diào)劑求收留 +7	果然有我 2026-03-26	7/350	2026-03-27 00:26 by wxiongid
[考研] 考研一志愿蘇州大學初始315（英一）求調(diào)劑 +3	sbdksD 2026-03-24	4/200	2026-03-25 18:16 by xcjcqu
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky

24小時熱門版塊排行榜

[交流] Euler 工程 第廿二題: 姓的總分 已有5人參與

» 本帖已獲得的紅花（最新10朵）

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

[交流] Euler 工程第廿二題: 姓的總分已有5人參與