四川大学保送生试题:八个8如何加减乘除才能等于1000

netegg

回复 15# happytc
关键是这个括号太难搞了

lleheaven

回复  annybaby
怕什么，计算机优势
终值写错了，1亿多次
可能还少了，括号连着出的没考虑部分结果
netegg 发表于 2013-1-15 13:54

    这个放在python终端算了一下结果，好像不是1000呢
>>> (8+8)*8*(8-(8/8)/8)-8
1016
>>> 8+8*8*(8-8/(8+8)+8)
1032

proteus

这个放在python终端算了一下结果，好像不是1000呢
>>> (8+8)*8*(8-(8/8)/8)-8
1016
>>> 8+8*8 ...
lleheaven 发表于 2013-1-15 16:34

    在Python 3，1/8 = 0.125。

在Python 2，1/8 = 0, 因为当除数与被除数都是整数，/表示整数除法。
要改变Python 2的这个行为，请在最前面加上
from __future__ import division

huangke

好厉害啊。呵呵，看看，看看

proteus

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

[au3]Local $timer = TimerInit()
Local $a[15] = ['+', '-', '*', '/', '+(', '-(', '*(', '/(', ')+', ')-', ')*', ')/', '(', '', ')']
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
                        If  Execute($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)
Next[/au3]

8+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

还是有几个重的

laoxiao

好了就此打住
8+(8+8)×[8×8-(8+8)÷8]=1000

laoxiao

好了就此打住
8+(8+8)×[8×8-(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)

laoxiao

MsgBox(0,1000,"如果按照计算机从头计算大约是",1)
MsgBox(0,1000,8*8*8*8*8*8*8*8,1)
MsgBox(0,1000,"这还不算上括号等等。。。。除非你的计算机够好",1)

laoxiao

MsgBox(0,1000,"如果按照计算机从头计算大约是",1)
MsgBox(0,1000,8*8*8*8*8*8*8*8,1)
MsgBox(0,1000,"这还不算上括号等等。。。。除非你的计算机够好",1)

xms77

楼上的都是高人，像我这样脑子不好使的只能看看热闹了，呵呵！

cdmtony

看看热闹，呵呵

netegg

回复 26# laoxiao

大概算了算，所有的符号排列大概有14亿(错误的也算上)个

lxwlxwayy

看看高手出招