VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5426|回复: 14

第 65 期擂台结案贴 [数值条件累加]

[复制链接]
 楼主| 发表于 2010-9-27 09:05:20 | 显示全部楼层 |阅读模式
本帖最后由 yimins 于 2010-10-30 22:25 编辑

擂台赛第65期(2010.09.27)
题目:数值条件累加

说明:
计算 0 ~ &HFFFFFFFF (即4字节无符号整数的最大值)  范围内
所有不含 4, 7 这两个数字的值的总和.


例子: 1 ~ 20 中,
计算 1+2+3+5+6+8+9+10+11+12+13+15+16+18+19+20 的总和

看谁的快!

本棋共有3位参赛者,感谢他们的参与!以下是他们的作品。请在下载学习之后投个票,以示尊重。
单选投票, 共有 15 人参与投票 查看投票参与人

投票已经结束

20.00% (3)
26.67% (4)
53.33% (8)
您所在的用户组没有投票权限

本帖子中包含更多资源

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

x
 楼主| 发表于 2010-9-27 10:18:49 | 显示全部楼层
我9月19日已投参赛稿,不知为何没有刊出?

讨论帖见97楼 http://www.vbgood.com/viewthread.php?tid=96736&page=10#pid553871
Igawk 发表于 2010-9-27 09:44


不好意思,之前的确没有收到你的邮件,你重发邮件之后已经帮你补上了。
回复

使用道具 举报

发表于 2010-9-27 11:11:00 | 显示全部楼层
谢谢版主
回复

使用道具 举报

发表于 2010-9-27 12:52:06 | 显示全部楼层
3# Igawk

只有你是老老实实累加的,所以我只能投给你了……
回复

使用道具 举报

发表于 2010-9-27 13:01:39 | 显示全部楼层
参观了一下大家的代码,发现就我的那个代码没有注释……

仙剑魔的那个算法估计和我的差不多,怎么代码长出了不少呢?

Igawk那个算法果然跟我想的累加算法差不多,就是自己写了一个简单十进制累加器以快速判断是否含4,7……

不过我还想到了个新主意就是标记数组法,不过再快速度也不会超过分组累加快……
回复

使用道具 举报

发表于 2010-9-27 14:28:00 | 显示全部楼层
5# acme_pjz

你是开了个大表
我是开了个小表然后递归
里面两组函数,count/sum是默认有前导0的规则,count0/sum0是默认没有前导0的规则,代码大同小异,纯粹是为了切换方便
回复

使用道具 举报

发表于 2010-9-27 17:30:44 | 显示全部楼层
本帖最后由 Igawk 于 2010-9-27 17:40 编辑

标记数组法不一定快。
试想,从1累加到2^32-1 (不含任何判断) 要多少时间?

我的程序确实是 老老实实地 累加 了每一个 要加 的数(但只占总数的1/8)。不需要加的数及时地跳过去了。:)

以下程序片段出现在进位调整的过程中:
(IP=出现4,7的数位位置, Vdigs(IP)=10^IP)
(如399..99进到400..00时,直接进位到500..00)

  1.                 If a = 4 Or a = 7 Then
  2.                     a = a + 1
  3.                     If Ip < 8 Then
  4.                         curA = curA + Vdigs(Ip)
  5.                     Else
  6.                         curAH = curAH + Vdigs(Ip - 8)
  7.                     End If
  8.                 End If
复制代码
回复

使用道具 举报

发表于 2010-9-27 18:15:31 | 显示全部楼层
只有一个累加的?…… 难道其他的不符题意直接被咔嚓?
回复

使用道具 举报

发表于 2010-9-27 20:41:54 | 显示全部楼层
明明有三个吗?
回复

使用道具 举报

发表于 2010-9-27 22:09:32 | 显示全部楼层
9# Igawk

你应该参观过我们的代码了吧按你那个定义不知道我这个算不算累加的?
回复

使用道具 举报

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

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-9-19 20:36

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表