应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » 其它 » Euler 工程 第廿二题: 姓的总分
142/2返回列表上一页12
查看: 2052  |  回复: 13
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 2 个 程序强帖 ，点击这里进行查看

wangww2011

木虫 (著名写手)
★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
dubo(金币+1): 欢迎讨论 2011-06-07 22:47:08
ben_ladeng: 2011-08-02 08:08:08
引用回帖:
Originally posted by huycwork at 2011-06-06 22:15:10:
单行程序可是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更灵活，更适合处理字符串。
有map的时候sum就显得多余了，呵呵
赞一下(3人) 回复此楼
11楼2011-06-07 09:47:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qinghuoly

木虫 (正式写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖
jjdg(金币+2): 感谢参与 2011-06-27 03:02:22
jjdg(程序强帖+1): 辛苦了 2011-06-27 03:02:39
scheme解法一：

[define [ans22]
  [define l [read-line [open-input-file "22.txt"]]]                ;读取文件
  
  [define namelist
    [with-input-from-string
     [regexp-replace* "," l " "]                ;替换逗号为空格
     [lambda [] [let loop [[l '[]] [r [read]]]
                  [if [eof-object? r] l
                      [loop [cons r l][read]]]]]]]                ;读取为列表
  
  [define [conv str]                ;将字符串转化为数值和
    [apply +
           [map [lambda [c]
                  [- [char->integer c]
                     64]]
                [string->list str]]]]
  
  [define [ex ls sum n ]
    [if [null? ls]
        sum
        [ex [cdr ls]
            [+ sum
               [* n
                  [conv [car ls]]]]
            [add1 n]]]]
  
  [ex [sort namelist string
        > [time [ans22]]
        cpu time: 1531 real time: 1531 gc time: 188
        871198282

scheme解法二：
[define names-list  '[
                      "MARY"
                      "PATRICIA"
                      "LINDA"
                      "BARBARA"
    .......
                      "ALONSO" ]]

[define [conv str]
  [apply +
         [map [lambda [c]
              [- [char->integer c]
                 64]]
              [string->list str]]]]

[define [ex ls sum n ]
      [if [null? ls]
      sum
      [ex [cdr ls]
          [+ sum
             [* n
                [conv [car ls]]]]
          [add1 n]]]]

[ex [sort names-list string
;define the data in source code will be faster.

        > [time [ans22]]
        cpu time: 47 real time: 47 gc time: 0
        871198282
赞一下(3人) 回复此楼
天地为帐，日月为灯，风雷为号角，云虹为旗令，山川为阵图，草木为兵卒。运阴阳五行为谋，策古今兴替为略。
12楼2011-06-26 01:42:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

bobo1986

铜虫 (小有名气)
★
小木虫(金币+0.5):给个红包，谢谢回帖
你好啊？为什么name.txt文件下载不下来？
赞一下(1人) 回复此楼
13楼2011-06-28 10:34:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
引用回帖:
Originally posted by bobo1986 at 2011-06-28 10:34:18:
你好啊？为什么name.txt文件下载不下来？

http://projecteuler.net/project/names.txt

请使用上面这个链接下载
赞一下 回复此楼
14楼2011-06-28 16:30:35
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 holmescn 的主题更新
142/2返回列表上一页12
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 什么时候开奖？ +4 CrisMessi 2026-08-18 4/200 2026-08-19 00:53 by gatelove
[基金申请] 咱们一起用铁证分析2026国家社科基金中标与否 +7 启萌科技 2026-08-12 27/1350 2026-08-18 21:44 by Noways
[教师之家] 为什么余额宝的年化利率越来越低？主要原因有哪些？ +3 瞬息宇宙 2026-08-15 3/150 2026-08-18 21:40 by xiaohuixin
[基金申请] 2027广东省杰青 +3 奶牛小黑 2026-08-15 9/450 2026-08-18 20:09 by 奶牛小黑
[基金申请] 朋友圈看到的 +4 wangzilk 2026-08-18 5/250 2026-08-18 19:25 by wangzilk
[基金申请] 欢迎发来filecode的Mz6后的代码验证其规律 +51 医学老男孩 2026-08-13 110/5500 2026-08-18 19:07 by icerianxia
[基金申请] 时间戳变了，能看出什么问题？ +8 基诺咪客 2026-08-17 11/550 2026-08-18 17:13 by 悠然熊猫
[基金申请] 今天维护系统维护 祝所有人 高中 +8 gjjjzhong 2026-08-18 9/450 2026-08-18 13:01 by 家与远方
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +13 Ldrop2023 2026-08-13 16/800 2026-08-18 12:25 by 淀粉搬运工
[基金申请] 快农历七夕节了，轻松一下，男人悄悄话，女施主请不要进来。 +4 Tide man 2026-08-14 5/250 2026-08-18 11:35 by Tide man
[基金申请] 93BebMhtakh前后11位开头都是大写 +4 且听虎啸 2026-08-17 5/250 2026-08-18 00:49 by 蔡棒棒菂
[基金申请] 感觉是下周放榜了 +6 angus9576 2026-08-17 11/550 2026-08-17 23:57 by angus9576
[基金申请] filecode=后面第一个是大写字母 +8 wangze12014 2026-08-14 10/500 2026-08-17 17:05 by xter9665
[基金申请] 今天系统多次维护，明天很可能放榜！ +8 zju2000 2026-08-16 9/450 2026-08-17 12:20 by lmz0216
[精细化工] 招聘 金属平磨液，抛光液研发工程师 +3 小天0311 2026-08-14 3/150 2026-08-16 07:31 by H9PLUS
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了，巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
信息提示
关闭
请填处理意见
关闭