$number = 1200000
$array = StringSplit($number, "", 2)
$string = ""
For $i = 0 To UBound($array)-1
For $n = 1 To $array[$i]
$string &= "."
Next
Next
If StringRegExp($string, '^(...)+$') Then
MsgBox(0, 0, $number & ' 是3的倍数')
Else
MsgBox(0, 0, $string & ' 不是3的倍数')
EndIf
山寨升级版.................................(afan的 1200000会出错...)
T_T 正则本身不支持运算 好郁闷
极限测试
$time = TimerInit()
$number = 999999999999999999
$array = StringSplit($number, "", 2)
$string = ""
For $i = 0 To UBound($array)-1
For $n = 1 To $array[$i]
$string &= "."
Next
Next
If StringRegExp($string, '^(...)+$') Then
MsgBox(0, TimerDiff($time), $number & ' 是3的倍数')
Else
MsgBox(0, TimerDiff($time), $string & ' 不是3的倍数')
EndIf
山寨升级版.................................(afan的 1200000会出错...)
T_T 正则本身不支持运算 好郁闷
...
rolaka 发表于 2010-3-15 21:34 http://www.autoitx.com/images/common/back.gif
这升级版好啊~ :face (33): 本帖最后由 gapkiller 于 2010-3-15 23:22 编辑
把$iNum转换一下
原理, 能被3整除的数, 其所有位数上数的和能被三整除
While $iNum>10
$s=StringSplit($iNum,'',0)
$iNum=0
For $i=1 To $s
$iNum += $s[$i]
Next
WEnd
最后只剩下一个数啦(3,6,9),哈哈哈哈,我随便正则..... 本帖最后由 C.L 于 2010-3-15 23:33 编辑
我也来个升级版，极限测试效率本机运行为0.25ms.
$time = TimerInit ()
$num = 999999999999999999
$bit = "---------"
$temp = ""
For $i = 1 To StringLen ($num)
$temp &= StringLeft($bit,StringMid($num,$i,1))
Next
If StringRegExp($temp, '^(---)+$') Then
MsgBox(0, TimerDiff($time), $num & ' 是3的倍数')
Else
MsgBox(0, TimerDiff($time), $num & ' 不是3的倍数')
EndIf
本帖最后由 bob 于 2010-3-16 09:10 编辑
以前学正则时候，看过一个蹊跷的解决办法，这背后藏有一个暴力算法:face (33):
因AU3长度限制，很长的数字是没办法的$a = 9999999999
$array = StringRegExp(_DecToBinary($a), '^1((10*1)|(01*0))*10*$', 3)
If @Error = 0 Then Msgbox(0, "判断结果", $a & "是3的倍数")
Func _DecToBinary($sDecStr, $iLength = 0) ;十进制转换为二进制
Local $sBinStr = ""
If NOT StringRegExp($sDecStr, "^\d+$") Then Return SetError(1, 0, "")
If $sDecStr > 1125899906842622 Then Return SetError(1, 0, "")
While $sDecStr > 0
$sBinStr = Mod($sDecStr, 2) & $sBinStr
$sDecStr = Int($sDecStr / 2)
WEnd
While StringLen($sBinStr) < $iLength
$sBinStr = "0" & $sBinStr
WEnd
Return $sBinStr
EndFunc ;==>_DecToBinary 回复 20# bob
学习了，有限状态机，目前我也是用了这种解法~ - - 以前学正则时候，看过一个蹊跷的解决办法，这背后藏有一个暴力算法
因AU3长度限制，很长的数 ...
bob 发表于 2010-3-16 09:09 http://www.autoitx.com/images/common/back.gif
转换为二进制再判断，真是高~ 学习了~ 以前学正则时候，看过一个蹊跷的解决办法，这背后藏有一个暴力算法
因AU3长度限制，很长的数 ...
bob 发表于 2010-3-16 09:09 http://www.autoitx.com/images/common/back.gif
转换成二进制搜...好办法啊 但 au3字符串长了就崩 afan的方法数字不能太大，因为字符串长途是有限制的，这样能相当大：Local $Num = InputBox("判断数字能否被3整除", "请输入一个数字", "")
$len = StringLen($Num)
Local $str
For $n = 1 To $len
$iNum = StringMid($Num, $n, 1)
For $i = 1 To $iNum
$str &= '.'
Next
Next
If StringRegExp($str, '^(...)+$') Then
MsgBox(0, 0, $Num & ' 是3的倍数')
Else
MsgBox(0, 0, $Num & ' 不是3的倍数')
EndIf 回复 24# vuivui
我那仅是个思路而已，并没推敲~ 因并不符合题目的主题思想…… 呵呵:face (32): afan 真不愧为 超版 ！ 不但人品不错！ 思维也越级厉害 ！ 本帖最后由 foboy 于 2010-7-18 01:25 编辑
大家别白忙活了，&也是运算符。具体请看帮助文件：【语言相关 - 运算符】一节。运算符并不只有简单的加减乘除。http://mengniu.in/templets/default/images/logo.gif
先分析一下：
一个数字钟如果只含有0 3 6 9 这几个数字，肯定是能被3整除。下面分析其他数字的情况
数字：必须含有其他什么数字时才能被3整除
1:2 5 8
2:1 4 7
4:2 5 8
5:1 4 7
7:2 5 8
8:1 4 7
现在发现一个很有规律的东西，即 1 4 7 和2 5 8 正好分成固定的2组，如果一个数字含有一个中的数字，则他必须也含有一个中的数字才能被三整除。换句话说，只要一个数字里含有的个数和的个数相等就可以。根据这个规律我写了一个只有一行代码的函数：Func test($_num)
Return StringCompare(UBound(StringRegExp($_num, '', 3)), UBound(StringRegExp($_num, '', 3)))
EndFunc ;==>test能被三整除时返回0，不能被三整除时返回非0
该函数比较 的个数时用StringCompare而不用=号的原因是：=号也属于运算符。
大家别怪俺太较真啊。 回复 1# pusofalse
27楼才是正解。完全符合要求，而且简单，准确。比数点的诸多办法更胜一筹。
页:
1
[2]