中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-11 10:00
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [出题]计算指定十六进制数的二进制表示中包含1的个数 查看 1,045 回复 8
楼 主 [出题]计算指定十六进制数的二进制表示中包含1的个数 发表于 2008-11-13 00:20 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
当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的个数为多少呢?

请给出速度最快的解。
2 发表于 2008-11-13 02:21 ·  中国 广东 广州 电信
高级用户
★★★
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31 02:43
19年会员
UID 75048
性别 男
状态 离线
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 ]
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT +2 2008-11-14 09:31
正在潜水修练的批处理小白
3 发表于 2008-11-13 02:36 ·  中国 广东 广州 电信
高级用户
★★★
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31 02:43
19年会员
UID 75048
性别 男
状态 离线
哈哈,有空无事计算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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT +2 2008-11-14 09:31
附件
ss.JPG
正在潜水修练的批处理小白
4 Re 2楼 发表于 2008-11-13 10:45 ·  美国 惠普HP
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
这个方法在我的电脑上单次运行需要9毫秒左右
我有另外一个方案可以在1毫秒内给出结果
纯粹是为了好玩
呵呵
5 发表于 2008-11-14 01:58 ·  中国 广东 广州 天河区 电信
高级用户
★★★
潜水修练批处理
积分 788
发帖 366
注册 2006-12-31 02:43
19年会员
UID 75048
性别 男
状态 离线
洗澡时想到的算法^_^
比那个稍快


@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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT +2 2008-11-22 03:00
正在潜水修练的批处理小白
6 发表于 2008-11-14 07:08 ·  中国 广东 广州 天河区 电信
金牌会员
★★★★
一叶枝头,万树皆春
积分 2,564
发帖 1,127
注册 2006-12-25 22:57
19年会员
UID 74552
性别 男
状态 离线
这样?

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 ]
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT +8 2008-11-22 03:04
49206C6F766520796F752067757973 54656C3A3133383238343036373837
7 发表于 2008-11-21 23:24 ·  中国 重庆 电信
版主
★★★★★
积分 9,023
发帖 5,017
注册 2007-05-31 19:39
19年会员
UID 89899
性别 男
状态 离线
@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 ]
8 发表于 2008-11-22 02:48 ·  中国 江苏 常州 电信
银牌会员
★★★
积分 2,404
发帖 946
注册 2005-09-08 13:44
20年会员
UID 42345
状态 离线
这样可行否?

@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
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
HAT +2 2008-11-22 02:59
简单!简单!再简单!
9 我也来一个 发表于 2009-02-26 00:06 ·  中国 广东 东莞 电信
银牌会员
★★★
批处理编程迷
积分 1,916
发帖 752
注册 2008-12-28 04:30
17年会员
UID 135147
性别 男
来自 广西
状态 离线
@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 ]
精简
=> 个人网志
论坛跳转: