趣味正则：用正则匹配3的倍数

pusofalse

此题非以往的练习，只是突发奇想地想到这么个题目，有兴趣的来思考下，绝对一道是发散思维的题目。
用户输入一个10进制数，用正则判断此数是否是3的倍数，不能用运算符号和运算函数（mod）。
自己本人也没有清晰的解题思路，发上来纯粹是因为无聊加为了娱乐，没有兴趣的诸位请华丽地无视。

afan

应该不是这个意思……

$a = '300'
If StringRegExp($a / 3, '\.') Then
        MsgBox(0, 0, $a & ' 不是3的倍数')
Else
        MsgBox(0, 0, $a & ' 是3的倍数')
EndIf

水木子

老师是这意思吗？

$a = InputBox('提示', '请输入一个十进制数')
If Not @error And $a <> '' Then
        If StringRegExp($a / 3, '\.') Then
                MsgBox(16, '匹配结果', $a & '不是3的倍数' & @CRLF & '因为: ' & $a & '/3' & '=' & $a / 3)
        Else
                MsgBox(64, '匹配结果', $a & '是3的倍数' & @CRLF & '因为: ' & $a & '/3' & '=' & $a / 3)
        EndIf
EndIf

pusofalse

回复2#、3#：
不是这个意思，抱歉，怪我没说清楚，表达式中不能有任何的加减乘除和取余运算，只用正则：
$iNum = 5
StringRegExp($iNum, ???)

水木子

回复 4# pusofalse
就是嘛！是说老师怎么可能出这么简单的题，有难度再想想！

pusofalse

回复 5# 水木子

    谢谢水木子兄抬爱，不要再叫老师了，真的不要再这样叫了。

afan

回复 4# pusofalse


    不知道能用循环不？呵呵

pusofalse

回复 7# afan


    我想是可以这样做的。在没有实现之前，应该尽量将条件放宽一些。
结合正则和循环语句，在实现之后，再一步步加大难度，只用一句正则。

hbyyan

真都是高人也啊！我正在学呢

afan

回复 8# pusofalse


   

Local $iNum = 5
Local $str
For $i = 1 To $iNum
        $str &= '.'
Next
If StringRegExp($str, '^(...)+$') Then
        MsgBox(0, 0, $iNum & ' 是3的倍数')
Else
        MsgBox(0, 0, $iNum & ' 不是3的倍数')
EndIf

当然这不是“趣味正则”的主题了……

水木子

回复  pusofalse


    当然这不是“趣味正则”的主题了……
afan 发表于 2010-3-15 20:27

呵呵！厉害，靠数点（.）来做，真是没想到啊！

pusofalse

果真思路独特，妙极了~

gapkiller

回复  pusofalse


    当然这不是“趣味正则”的主题了……
afan 发表于 2010-3-15 20:27

哈哈...高
不过太扯了, 要是$num比较大, $str不是超出范围了.....

gapkiller

不懂正则的飘过...

水木子

借afan前辈的思路，哎！再想想！

#Include <Array.au3>
$i = InputBox('提示', '请输入一个十进制数')
Local $a[$i] = ['.']

$iNum = _ArrayToString($a, '.')
If StringRegExp($iNum, '^(...)+$') Then
        MsgBox(0, 0, $i & ' 是3的倍数')
Else
        MsgBox(0, 0, $i & ' 不是3的倍数')
EndIf