求最簡單代碼

swx

贴一个我自己做的，肯定不是最优。Sub abc(a1 As Double, a2 As Double, a3 As Double, a4 As Double, a5 As Double, a6 As Double, a0 As Double)

Dim i As Byte, j As Byte, k As Byte, l As Byte, m As Byte, n As Byte

Dim gshi As String, zhi As Double, oldzhi As Doubleoldzhi = a0

For i = 0 To 1

    For j = 0 To 1

        For k = 0 To 1

            For l = 0 To 1

                For m = 0 To 1

                    For n = 0 To 1

                        ai = a1: If i = 0 Then ai = 0

                        aj = a2: If j = 0 Then aj = 0

                        ak = a3: If k = 0 Then ak = 0

                        al = a4: If l = 0 Then al = 0

                        am = a5: If m = 0 Then am = 0

                        an = a6: If n = 0 Then an = 0

                        zhi = Abs(ai + aj + ak + al + am + an - a0)

                        If zhi < oldzhi Then

                           oldzhi = zhi

                           gshi = ai & "+" & aj & "+" & ak & "+" & al & "+" & am & "+" & an & " = " & ai + aj + ak + al + am + an

                        End If

                    Next n

                Next m

            Next l

        Next k

    Next j

Next i

gshi = Replace(gshi, "+0+", "+", , 4)

gshi = Replace(gshi, "+0=", "=")

If Left(gshi, 2) = "0+" Then gshi = Right(gshi, Len(gshi) - 2)

MsgBox gshi

End Sub

调用：abc 3.1, 1.7, 2, 5.3, 0.9, 7.2, 10     '6个计算数及1个接近数

Trynew

Public Sub PL()

Dim i As Integer, Total As Single, tmp As Single, Str As String, strTmp As String

    For i = 1 To 2 ^ 6 - 1

        strTmp = ((i And 2 ^ 5) / 2 ^ 5) * 3.1 & "+" & ((i And 2 ^ 4) / 2 ^ 4) * 1.7 & "+" & ((i And 2 ^ 3) / 2 ^ 3) * 2# & "+" & ((i And 2 ^ 2) / 2 ^ 2) * 5.3 & "+" & ((i And 2 ^ 1) / 2 ^ 1) * 0.9 & "+" & ((i And 2 ^ 0) / 2 ^ 0) * 7.2

        tmp = Abs(Eval(strTmp) - 10)

        If tmp < Total Or Total = 0 Then

            Total = tmp

            Str = strTmp

        ElseIf tmp = Total Then

            Str = Str & " or " & strTmp

        End If

    Next

    MsgBox Str & "=" & Total

End Sub

确实想不出更短的了。答案不是两组，而是三组：0+0+2+0+.9+7.2 or 0+1.7+2+5.3+.9+0 or 3.1+1.7+0+5.3+0+0=.1

ywjxp

高手

Benjamin_luk

高!!,非一般思维,IQ要达120以上了[em05]

Benjamin_luk

由以上想到ublic Sub GetNumber()

Dim I, J, K, L, M, N As Integer, Total As Single, str As String, tmp As Double

For I = 0 To 1: For J = 0 To 1: For K = 0 To 1: For L = 0 To 1: For M = 0 To 1: For N = 0 To 1

strTmp = I * 3.1 & "+" & J * 1.7 & "+" & K * 2# & "+" & L * 5.3 & "+" & M * 0.9 & "+" & N * 7.2

tmp = Abs(Eval(strTmp) - 10)

If tmp < Total Or Total = 0 Then

  Total = tmp

     str = strTmp

    ElseIf tmp = Total Then

  str = str & " or " & strTmp

End If

Next N: Next M: Next L: Next K: Next J: Next I

MsgBox str & "=" & Total

End Sub[em05][em05][em05]

Trynew

如果只要求一组解，下面应该是最短的了：去掉Tmp中间变量，就剩一个循环和一条语句。Public Function Str(Optional i As Integer, Optional Tmp As String) As String

    For i = 1 To 2 ^ 6 - 1

        Tmp = (i And 32) / 32 * 3.1 & "+" & (i And 16) / 16 * 1.7 & "+" & (i And 8) / 8 * 2

        Tmp = Tmp & "+" & (i And 4) / 4 * 5.3 & "+" & (i And 2) / 2 * 0.9 & "+" & (i And 1) * 7.2

        Str = IIf((Abs(Eval(Tmp) - 10) < Abs(Eval(IIf(Str = "", "0", Str)) - 10)), Tmp, Str)

    Next

End Function下面是两个自定义获取和设置一个整数某一位的位操作函数，在使用一个整数保存多个开关量的时候可以用到，如用一个字段保存多个选项。另外使用此函数的话，上面的程序语句可以短一些：Public Function GetByte(Num As Long, i As Integer) As Long

    GetByte = (Num And 2 ^ i) / 2 ^ i

End FunctionPublic Function SetByte(Num As Long, i As Integer, val As Integer) As Long

    SetByte = IIf(val = 1, Num Or 2 ^ i, Num - (Num And 2 ^ i))

End Function

[建议把此帖转到技术竞赛栏目]

tmtony

非常不错, 我现转到竞赛栏目

LucasLynn

以下是引用Trynew在2005-6-15 13:37:00的发言：



如果只要求一组解，下面应该是最短的了：去掉Tmp中间变量，就剩一个循环和一条语句。

Public Function Str(Optional i As Integer, Optional Tmp As String) As String

    For i = 1 To 2 ^ 6 - 1

        Tmp = (i And 32) / 32 * 3.1 & "+" & (i And 16) / 16 * 1.7 & "+" & (i And 8) / 8 * 2

        Tmp = Tmp & "+" & (i And 4) / 4 * 5.3 & "+" & (i And 2) / 2 * 0.9 & "+" & (i And 1) * 7.2

        Str = IIf((Abs(Eval(Tmp) - 10) < Abs(Eval(IIf(Str = "", "0", Str)) - 10)), Tmp, Str)

    Next

End Function

下面是两个自定义获取和设置一个整数某一位的位操作函数，在使用一个整数保存多个开关量的时候可以用到，如用一个字段保存多个选项。另外使用此函数的话，上面的程序语句可以短一些：

Public Function GetByte(Num As Long, i As Integer) As Long

    GetByte = (Num And 2 ^ i) / 2 ^ i

End Function

Public Function SetByte(Num As Long, i As Integer, val As Integer) As Long

    SetByte = IIf(val = 1, Num Or 2 ^ i, Num - (Num And 2 ^ i))

End Function



[建议把此帖转到技术竞赛栏目]

这个方法确实是最简单的，递归的代码长度和执行效率都是很不错的。