回复 15# happytc
关键是这个括号太难搞了
回复annybaby
怕什么，计算机优势
终值写错了，1亿多次
可能还少了，括号连着出的没考虑部分结果
netegg 发表于 2013-1-15 13:54 http://www.autoitx.com/images/common/back.gif
这个放在python终端算了一下结果，好像不是1000呢
>>> (8+8)*8*(8-(8/8)/8)-8
1016
>>> 8+8*8*(8-8/(8+8)+8)
1032
这个放在python终端算了一下结果，好像不是1000呢
>>> (8+8)*8*(8-(8/8)/8)-8
1016
>>> 8+8*8 ...
lleheaven 发表于 2013-1-15 16:34 http://www.autoitx.com/images/common/back.gif
在Python 3，1/8 = 0.125。
在Python 2，1/8 = 0, 因为当除数与被除数都是整数，/表示整数除法。
要改变Python 2的这个行为，请在最前面加上
from __future__ import division
好厉害啊。呵呵，看看，看看
8+8*8*(8+8-8/(8+8))
8+(8*8*(8+8-8/(8+8)))
8+8*(8*(8+8-8/(8+8)))
8+(8*(8*(8+8-8/(8+8))))
8+8*8*(8+(8-8/(8+8)))
8+(8*8*(8+(8-8/(8+8))))
8+8*(8*(8+(8-8/(8+8))))
8+(8*(8*(8+(8-8/(8+8)))))
8+8*8*(8+8-(8/(8+8)))
8+(8*8*(8+8-(8/(8+8))))
8+8*(8*(8+8-(8/(8+8))))
8+(8*(8*(8+8-(8/(8+8)))))
8+8*8*(8+(8-(8/(8+8))))
8+(8*8*(8+(8-(8/(8+8)))))
8+8*(8*(8+(8-(8/(8+8)))))
8+(8*(8*(8+(8-(8/(8+8))))))
8+8*8*(8+8-8/(8+(8)))
8+(8*8*(8+8-8/(8+(8))))
8+8*(8*(8+8-8/(8+(8))))
8+(8*(8*(8+8-8/(8+(8)))))
8+8*8*(8+(8-8/(8+(8))))
8+(8*8*(8+(8-8/(8+(8)))))
8+8*(8*(8+(8-8/(8+(8)))))
8+(8*(8*(8+(8-8/(8+(8))))))
8+8*8*(8+8-(8/(8+(8))))
8+(8*8*(8+8-(8/(8+(8)))))
8+8*(8*(8+8-(8/(8+(8)))))
8+(8*(8*(8+8-(8/(8+(8))))))
8+8*8*(8+(8-(8/(8+(8)))))
8+(8*8*(8+(8-(8/(8+(8))))))
8+8*(8*(8+(8-(8/(8+(8))))))
8+(8*(8*(8+(8-(8/(8+(8)))))))
本帖最后由 netegg 于 2013-1-15 20:06 编辑
Local $timer = TimerInit()
Local $a = ['+', '-', '*', '/', '+(', '-(', '*(', '/(', ')+', ')-', ')*', ')/', '(', '', ')']
For $i1 = 0 To 7
For $i2 = 0 To 11
For $i3 = 0 To 11
For $i4 = 0 To 11
For $i5 = 0 To 11
For $i6 = 0 To 11
For $i7 = 0 To 11
For $i8 = 12 To 13
For $i9 = 13 To 14
$num = $a[$i8] & '8' & $a[$i1] & '8' & $a[$i2] & '8' & $a[$i3] & '8' & $a[$i4] & '8' & $a[$i5] & '8' & $a[$i6] & '8' & $a[$i7] & '8' & $a[$i9]
If Not (stringregexp($num, "\(8\)|\(8\*8\)|\(8/8\)")) Then
IfExecute($num) = 1000 Then
If (Execute(StringTrimRight(StringTrimLeft($num, 1), 1)) = '') Then ConsoleWrite($num & @TAB & TimerDiff($timer) & @CR)
EndIf
EndIf
Next
Next
Next
Next
Next
Next
Next
Next
ConsoleWrite(@CR & $i1 & @CR)
Next8+8*8*(8-8/(8+8)+8) 56933.67932534
8+8*(8-8/(8+8)+8)*8 135835.225584051
(8+8)*8*(8-8/8/8)-8 228554.203133188
(8+8)/8*(8*8*8-8)-8 250570.75287235
0
8-8*8*(8/(8+8)-8-8) 317437.608030847
(8-8/8/8)*8*(8+8)-8 334885.731715901
8-8*(8/(8+8)-8-8)*8 403765.316916555
(8-8/(8+8)+8)*8*8+8 412676.426593773
1
(8*8+8*8)*8-8-8-8 526124.16997114
(8*8+8*8)*8-8-(8+8) 526129.74162541
(8*8+8*8)*8-(8+8+8) 526178.463048562
(8*8+8*8)*8-(8+8)-8 526179.471988237
(8*8*8-8)/8*(8+8)-8 568752.186524789
8*8*(8-8/(8+8)+8)+8 655737.289022111
2
3
8+(8-8/(8+8)+8)*8*8 1058657.32077634
8+(8*(8-8/(8+8)+8)*8) 1153738.60054592
4
8-(8*(8/(8+8)-8-8)*8) 1402855.17609517
8-(8/(8+8)-8-8)*8*8 1411918.87225572
5
(8*(8+8)-8/8)*8-8-8 1520871.81871153
(8*(8+8)-8/8)*8-(8+8) 1520876.65859124
8*(8-8/(8+8)+8)*8+8 1539560.09105876
(8*(8-8/(8+8)+8)*8)+8 1539560.90837811
8*(8*8+8*8)-8-8-8 1549606.69097116
(8*(8*8+8*8)-8-8)-8 1549607.51220113
8*(8*8+8*8)-8-(8+8) 1549611.56506879
(8*(8*8+8*8)-8)-8-8 1549616.17568846
8*(8*(8+8)-8/8)-8-8 1633166.57525595
(8*(8*(8+8)-8/8)-8)-8 1633167.42190494
6
7还是有几个重的
好了就此打住
8+(8+8)×=1000
好了就此打住
8+(8+8)×=1000
回复 1# happytc
MsgBox(0,1000,8+(8+8)*(8*8-(8+8)/8),1)
MsgBox(0,1000,"就此打住吧",1)
MsgBox(0,1000,"楼主闲着无聊",1)
MsgBox(0,1000,"http://www.baidu.com/s?ie=utf-8&bs=8%2B%288%2B8%29%E8%84%B3%5B8%E8%84%B38-%288%2B8%29%E6%A2%858%5D%3D&f=8&rsv_bp=1&rsv_spt=3&wd=8%2B%288%2B8%29%C3%97%5B8%C3%978-%288%2B8%29%C3%B78%5D&rsv_n=2&rsv_sug3=6&rsv_sug1=4&rsv_sug4=322&inputT=2934",1)
MsgBox(0,1000,"就此打住吧",1)
MsgBox(0,1000,"http://wenwen.soso.com/z/q184022635.htm",1)
MsgBox(0,1000,"就此打住吧",1)
MsgBox(0,1000,"如果按照计算机从头计算大约是",1)
MsgBox(0,1000,8*8*8*8*8*8*8*8,1)
MsgBox(0,1000,"这还不算上括号等等。。。。除非你的计算机够好",1)
MsgBox(0,1000,"如果按照计算机从头计算大约是",1)
MsgBox(0,1000,8*8*8*8*8*8*8*8,1)
MsgBox(0,1000,"这还不算上括号等等。。。。除非你的计算机够好",1)
楼上的都是高人，像我这样脑子不好使的只能看看热闹了，呵呵！
看看热闹，呵呵
回复 26# laoxiao
大概算了算，所有的符号排列大概有14亿(错误的也算上)个
看看高手出招