版塊導(dǎo)航: 正在加載中...

客戶端APP下載

論文輔導(dǎo)

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

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

返回列表

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

holmescn

管理員

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

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

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

回復(fù)此樓

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

holmescn

» 猜你喜歡

309分085801求調(diào)劑已經(jīng)有7人回復(fù)
生物學(xué)308分求調(diào)劑（一志愿華東師大）已經(jīng)有3人回復(fù)
求調(diào)劑：一志愿：南京大學(xué) 專業(yè)：0705 總分320 ，本科985，四六級已過已經(jīng)有3人回復(fù)
環(huán)境工程 085701，267求調(diào)劑已經(jīng)有14人回復(fù)
308求調(diào)劑已經(jīng)有12人回復(fù)
求調(diào)劑：085600材料與化工，考材科基，總分319 已經(jīng)有21人回復(fù)
311求調(diào)劑已經(jīng)有8人回復(fù)
294分080500材料科學(xué)與工程求調(diào)劑已經(jīng)有13人回復(fù)
288求調(diào)劑一志愿哈工大材料與化工已經(jīng)有19人回復(fù)
288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學(xué)上就行已經(jīng)有23人回復(fù)

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

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

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

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

libralibra

管理員

驃騎將軍

程序強帖: 40
應(yīng)助: 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

結(jié)果時間

CODE:

 % Elapsed time is 0.307340 seconds.

% ans =

%    871198282

贊一下(3人)

回復(fù)此樓

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

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

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

huycwork

實習版主

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

★ ★ ★ ★ ★ ★
小木蟲(金幣+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人)

回復(fù)此樓

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

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

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

wangww2011

專家顧問

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

★ ★ ★
小木蟲(金幣+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人)

回復(fù)此樓

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

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

libralibra

實習版主

驃騎將軍

程序強帖: 40
應(yīng)助: 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人)

回復(fù)此樓

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

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

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

wangww2011

版主

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

★ ★
小木蟲(金幣+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人)

回復(fù)此樓

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

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

holmescn

主管區(qū)長

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

★ ★

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

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

贊一下(2人)

回復(fù)此樓

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

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

huycwork

版主

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

★ ★ ★
小木蟲(金幣+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人)

回復(fù)此樓

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

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

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

wangww2011

實習版主

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

★ ★ ★
小木蟲(金幣+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還是很方便的，有機會學(xué)學(xué)

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人)

回復(fù)此樓

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

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

huycwork

主管區(qū)長

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

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

引用回帖:

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

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ù)組處理成標量的篩子，這種篩子應(yīng)該很常用才對的。

贊一下(2人)

回復(fù)此樓

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

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

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

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

返回列表

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

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

[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +12	柳溪邊 2026-03-26	13/650	2026-04-01 01:37 by 1018329917
[考研] 考研調(diào)劑 +6	Amber00 2026-03-31	6/300	2026-04-01 00:42 by fmesaito
[考研] 309求調(diào)劑 +5	gajsj 2026-03-25	6/300	2026-03-31 21:12 by yuq
[考研] 安徽大學(xué)專碩生物與醫(yī)藥專業(yè)(086000)324分，英語已過四六級，六級521，求調(diào)劑 +10	美味可樂雞翅 2026-03-26	11/550	2026-03-31 19:20 by syh9288
[考研] 085600 一志愿9 總分351 求調(diào)劑學(xué)校 +7	czhcz 2026-03-31	7/350	2026-03-31 18:54 by 小張做實驗
[考研] 285求調(diào)劑 +3	FZAC123 2026-03-30	3/150	2026-03-31 17:49 by 熱情沙漠
[考研] 一志愿211，335分，0856，求調(diào)劑院校和導(dǎo)師 +10	傾____蕭 2026-03-27	11/550	2026-03-31 14:32 by fmesaito
[考研] 347求調(diào)劑 +11	山頂見α 2026-03-25	11/550	2026-03-31 14:14 by 記事本2026
[考研] 354求調(diào)劑 +3	lxb598 2026-03-31	4/200	2026-03-31 13:42 by sophie2180
[考博] 材料專業(yè)申博 +5	杜雨婷dyt 2026-03-29	5/250	2026-03-31 11:19 by oooqiao
[考研] 083000學(xué)碩274求調(diào)劑 +12	Li李魚 2026-03-26	12/600	2026-03-31 10:01 by cal0306
[考研] 0856調(diào)劑 +6	曲聽筠 2026-03-30	6/300	2026-03-31 09:44 by Jaylen.
[考研] 279求調(diào)劑 +12	j的立方 2026-03-29	12/600	2026-03-30 20:30 by dick_runner
[考研] 327求調(diào)劑 +5	小卡不卡. 2026-03-29	5/250	2026-03-30 19:30 by Wang200018
[考研] 289求調(diào)劑 +16	新時代材料 2026-03-27	16/800	2026-03-30 19:04 by Wang200018
[考研] 0703 化學(xué) 求調(diào)劑，一志愿山東大學(xué) 342 分 +7	Shern—- 2026-03-28	7/350	2026-03-30 16:31 by nothing投稿中
[考研] 考研調(diào)劑 +5	Sanmu-124 2026-03-26	5/250	2026-03-30 13:36 by chemdavid
[考研] 337求調(diào)劑 +6	《樹》 2026-03-29	6/300	2026-03-30 10:15 by herarysara
[考研] 318一志愿吉林大學(xué)生物與醫(yī)藥求調(diào)劑 +5	篤行致遠. 2026-03-28	5/250	2026-03-30 06:56 by ilovexiaobin
[考研] 283求調(diào)劑 +3	A child 2026-03-28	3/150	2026-03-28 15:41 by ms629

24小時熱門版塊排行榜

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

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

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

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

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