中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [出题]计算指定十六进制数的二进制表示中包含1的个数

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『楼主』: [出题]计算指定十六进制数的二进制表示中包含1的个数

当n=A时，{1010}，包含数字1的个数为2；
当n=B时，{1011}，包含数字1的个数为3；
当n=C时，{1100}，包含数字1的个数为2；
当n=F时，{1111}，包含数字1的个数为4；
当n=3B9AC9FF时，{1...1}，包含数字1的个数为多少呢？

请给出速度最快的解。

2008-11-13 00:20

dikex
高级用户

潜水修练批处理

积分 788
发帖 366
注册 2006-12-31
状态离线

『第 2 楼』:

3B9AC9FF时是21
嗯，貌似即使用batch能处理的最大整数0x7FFFFFFF也能在瞬间搞定，比它快也貌似没有意义了-_-

@echo off

set /a rd=0x7FFFFFFF

:loop

set /a "rd1=rd%%2"

set /a "rd=rd/2"

if %rd1% equ 1 set /a n+=1

if %rd% neq 0 goto :loop

echo %n%

pause

[ Last edited by dikex on 2008-11-13 at 02:22 ]

此帖被 +2 点积分点击查看详情

正在潜水修练的批处理小白

2008-11-13 02:21

dikex
高级用户

潜水修练批处理

积分 788
发帖 366
注册 2006-12-31
状态离线

『第 3 楼』:

哈哈，有空无事计算100次，得出计算100次平均用时是2.625s，也就是计算1次之用0.02625s

机子配置不同可能有差距

@echo off

echo %time%

:aa

call :cc

set /a c+=1

if %c% lss 100 goto :aa

echo %time%

pause

:cc

set /a rd=0x7FFFFFFF

set n=0

:loop

set /a "rd1=rd%%2"

set /a "rd=rd/2"

if %rd1% equ 1 set /a n+=1

if %rd% neq 0 goto :loop

goto :EOF

此帖被 +2 点积分点击查看详情

附件 1: ss.JPG (2008-11-13 02:36, 20.31 K, 下载附件所需积分 1 点 )

正在潜水修练的批处理小白

2008-11-13 02:36

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 4 楼』: Re 2楼

这个方法在我的电脑上单次运行需要9毫秒左右
我有另外一个方案可以在1毫秒内给出结果
纯粹是为了好玩
呵呵

2008-11-13 10:45

dikex
高级用户

潜水修练批处理

积分 788
发帖 366
注册 2006-12-31
状态离线

『第 5 楼』:

洗澡时想到的算法^_^
比那个稍快

@echo off

echo %time%

:aa

call :cc

set /a c+=1

if %c% lss 100 goto :aa

echo %time%

pause

:cc

set /a a=0x7FFFFFFF

set n=0

set b=0

:loop

set /a "b+=(a>>%n%)&1"

set /a n+=1

if %n% lss 31 goto :loop

rem echo %b%

goto :EOF

此帖被 +2 点积分点击查看详情

正在潜水修练的批处理小白

2008-11-14 01:58

everest79
金牌会员

一叶枝头，万树皆春

积分 2564
发帖 1127
注册 2006-12-25
状态离线

『第 6 楼』:

这样？

Set /P "str=INPUT:"

Set /A "str=(str&0x55555555)+(str>>1&0x55555555)"

Set /A "str=(str&0x33333333)+(str>>2&0x33333333)"

Set /A "str=(str&0x0F0F0F0F)+(str>>4&0x0F0F0F0F)"

Set /A "str=(str&0x00FF00FF)+(str>>8&0x00FF00FF)"

Set /A "str=(str&0x0000FFFF)+(str>>16&0x0000FFFF)"

echo %str%

pause

[ Last edited by everest79 on 2008-11-15 at 01:26 ]

此帖被 +8 点积分

点击查看详情

49206C6F766520796F752067757973 54656C3A3133383238343036373837

2008-11-14 07:08

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 7 楼』:

@echo off

set hex=3B9AC9FF

set bin=%bin:3=11%

set bin=%bin:5=11%

set bin=%bin:6=11%

set bin=%bin:7=111%

set bin=%bin:9=11%

set bin=%bin:A=11%

set bin=%bin:B=111%

set bin=%bin:C=11%

set bin=%bin:D=111%

set bin=%bin:E=111%

set bin=%bin:F=1111%

set numOne=%bin:0=%

set "length=31"

:loop

set "numOne=%numOne%#"

set /a length-=1

if "%numOne:~30,1%" neq "#" goto :loop

echo %length%

pause

[ Last edited by HAT on 2008-11-22 at 02:58 ]

2008-11-21 23:24

terse
银牌会员

积分 2404
发帖 946
注册 2005-9-8
状态离线

『第 8 楼』:

这样可行否？

@echo off&setlocal enabledelayedexpansion

    set 1=1&set 2=1&set 3=2&set 4=1&set 5=2&set 6=2&set 7=3&set 8=1

    set 9=2&set a=2&set b=3&set c=2&set d=3&set e=3&set f=4

    set hex=7FFFFFFF

:lp

    if defined hex (

    set/a n+=!%hex:~,1%!

    set hex=%hex:~1%

    goto lp

)

echo.%n%

pause

此帖被 +2 点积分点击查看详情

简单!简单!再简单!

2008-11-22 02:48

netbenton
银牌会员

批处理编程迷

积分 1916
发帖 752
注册 2008-12-28
来自广西
状态离线

『第 9 楼』: 我也来一个

@echo off
set /a num=0x12345678

:loop
set /a n=num%%2,num=num/2
set /a _%n%+=1
if %num% gtr 0 goto :loop

echo 有%_0%个0
echo 有%_1%个1
pause

[ Last edited by netbenton on 2009-2-27 at 07:18 ]

精简
[你的+我的+他的]=>[大家的] 个人

网志

2009-2-26 00:06

(37659560)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: