找回密码
 注册
Simdroid-非首页
查看: 188|回复: 3

[欧拉习题] 借题发挥 No.22 ---- Solving the problem is same as SEX

[复制链接]
发表于 2008-12-27 16:19:18 | 显示全部楼层 |阅读模式 来自 江苏无锡
Solving the problem is same as Sex,If you make it too fast, it's not pleasure.

其实分析问题就像脱衣服,如果脱的太快了,就不符合美学了。
只有一件一件来,慢慢的用心去体会。这是前奏。

编程实现算法就像是中间过程,要反复调试,思考,比较,来回折腾着。
最后计算出答案就好比 Climax (好了我就不描写了)。

来点轻松的,大伙的乐一乐。

附件是 No. 22 的一番云雨!

[ 本帖最后由 FreddyMusic 于 2008-12-27 16:41 编辑 ]

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

×
发表于 2008-12-27 22:11:15 | 显示全部楼层 来自 甘肃兰州
Simdroid开发平台
看不了,6播放不了7的文件……
看来我需要赶快升级啊
回复 不支持

使用道具 举报

发表于 2010-4-1 15:57:44 | 显示全部楼层 来自 甘肃兰州
本帖最后由 jimogsh 于 2010-4-1 15:59 编辑

1# FreddyMusic 这个答案是错误的呀,怎么回事呢?我仔细检查过了,代码没有问题。
计算代码就是用的1楼附件解法,但答案在PE网站通不过。先把names.txt放在G盘根目录下,利用记事本软件自带的“替换”功能先把所有引号去掉,逗号换成空格。

  1. names = Import["G:\\names.txt", "Data"]; stringNames =
  2. StringSplit @@ names; rule =
  3. Map[Apply[Rule, #] &, Transpose[{CharacterRange["A", "Z"], Range[26]}]];
  4. nameNumber = StringReplace[stringNames, rule]; nameValue =
  5. Map[Apply[Plus, #] &, nameNumber]; answer =
  6. Total[MapIndexed[(#1 First[#2]) &, nameValue]]
复制代码


850081394
回复 不支持

使用道具 举报

发表于 2011-6-9 01:03:20 | 显示全部楼层 来自 湖北武汉
  1. name = Sort[
  2.    Flatten@StringSplit[Import["F:\\names.txt", "Table"][[1]],
  3.      "",""]];
  4. Total[Times @@ {#, Total[ToCharacterCode[name[[#]]] - 64]} & /@
  5.    Range[Length[name]]] // Timing
复制代码
运行结果:{0.063, 871198282}
回复 不支持

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|小黑屋|联系我们|仿真互动网 ( 京ICP备15048925号-7 )

GMT+8, 2024-3-29 01:32 , Processed in 0.051906 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表