由于你平均拥有30件物品,总是会收到不止一次使用的加速信。 您当然希望有一个项目来改变您的方案的多重运行(或更糟糕的是,同一行程中的多重用途)。

为什么不简单地保留,要求每个菜单都有固定的加速信片财产?

您可将此视为的一个实例。 用本条款的措辞,将贵重物品标题视为工人。 您希望指派每位工人从事工作,工作是A-Z的一封信。 指派一名工人去信(工作)的费用是该信在菜单项目中的索引。 这使指数数额最小,因此,如果第一封信完全不同,最好的解决办法是使用每件菜单的第一封信。

与我一样,对于patient来说,在C# here上对匈牙利 a进行了非常清洁的执行,这里是解决欧佩斯问题的快速测试设备:

Module Module1

Sub Main()
    test1()
End Sub

Sub test1()
    Dim menus() As String =
    {"File",
     "Fiddle",
     "Forest",
     "Fangle",
     "Edit",
     "Entity",
     "Entropy",
     "Eviction",
     "View",
     "Vixen",
     "Visible",
     "Window",
     "Wait",
     "What",
     "Tools",
     "Time",
     "Total",
     "Tea"}
    Dim items As Integer = menus.GetUpperBound(0)
    Dim alphabet As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    Dim letters As Integer = alphabet.Length - 1
    Dim costs(items, letters) As Integer
    Dim cost As Integer
    Dim ch As String
    Dim o As Integer
    Dim longest As Integer = 0
    For i = 0 To items
        cost = 1
        If menus(i).Length > longest Then
            longest = menus(i).Length
        End If
        For j = 0 To menus(i).Length - 1
            ch = menus(i).Substring(j, 1)
            o = alphabet.IndexOf(ch, StringComparison.InvariantCultureIgnoreCase)
            If costs(i, o) = 0 Then   Don t overwrite when same letter more than once in word  
                costs(i, o) = cost
                cost += 2
            End If
        Next
        For j = 0 To letters
            If costs(i, j) = 0 Then
                costs(i, j) = 99
            End If
        Next
    Next
    longest += 1
    For r = 1 To 2
        Console.Write("".PadRight(longest))
        For i = 0 To letters
            Console.Write(alphabet.Substring(i, 1).PadLeft(3))
        Next
        Console.WriteLine("")
        For i = 0 To items
            Console.Write(menus(i).PadRight(longest))
            For j = 0 To letters
                Console.Write(costs(i, j).ToString.PadLeft(3))
            Next
            Console.WriteLine("")
        Next
        If r = 1 Then
            Dim h As New HungarianAlgorithm
            Dim result() As Integer
            result = h.FindAssignments(costs)
            Console.WriteLine("Answer:")
            For i = 0 To items
                Console.WriteLine(menus(i).PadRight(longest) & alphabet.Substring(result(i), 1))
            Next
        End If
    Next r
End Sub

End Module