在没有选中/取消选中关键字支持的情况下覆盖VB中的GetHashCode？

Question

所以我试图弄清楚如何GetHashCode()在VB中正确覆盖大量的自定义对象.一些搜索引导我得到这个美妙的答案.

除了有一个问题:VB缺少.NET 4.0中的checked和unchecked关键字.据我所知,无论如何.因此,使用乔恩斯基特的实现,我想对具有三个主要成员一个相当简单的类创建这样一个覆盖:Name As String,Value As Int32,和[Type] As System.Type.因此,我提出:

Public Overrides Function GetHashCode() As Int32
    Dim hash As Int32 = 17

    hash = hash * 23 + _Name.GetHashCode()
    hash = hash * 23 + _Value
    hash = hash * 23 + _Type.GetHashCode()
    Return hash
End Function

问题:即使像这样的简单对象,Int32也太小了.我测试的特定实例将"Name"作为一个简单的5个字符的字符串,并且该哈希值足够接近Int32的上限,当它试图计算哈希值(Value)的第二个字段时,它会溢出.因为我找不到粒度checked/ unchecked支持的VB等价物,所以我无法解决这个问题.

我也不想删除整个项目中的Integer溢出检查.这个东西可能...... 40%完成(我做了,TBH),我有更多的代码要写,所以我需要这些溢出检查很长一段时间.

GetHashCode对于VB和Int32 ,Jon的版本的"安全"版本是什么？或者,.NET 4.0 在某个地方有checked/ unchecked我在MSDN上很难找到吗？


编辑:
根据链接的SO问题,最底层的一个不受欢迎的答案提供了一个准解决方案.我说准,因为它感觉像是......作弊.乞丐不能选择,对吧？

从C#转换为更易读的VB并与上述对象(Name,Value,Type)对齐,我们得到:

Public Overrides Function GetHashCode() As Int32
    Return New With { _
        Key .A = _Name, _
        Key .B = _Value, _
        Key .C = _Type
     }.GetHashCode()
End Function

这会触发编译器显然通过生成匿名类型来"欺骗",然后它会在项目命名空间之外编译,可能会禁用整数溢出检查,并允许数学发生并在溢出时简单地回绕.它似乎也涉及box操作码,我知道它是性能命中.但是,没有取消装箱.

但这提出了一个有趣的问题.无数次,我已经看到它在这里和其他地方声明VB和C#都生成相同的IL代码.这显然不是100%的情况......就像使用C#的unchecked关键字只会导致不同的操作码被发出.那么为什么我还要继续看到两者都产生完全相同的IL不断重复的假设？  </修辞-问题>

无论如何,我宁愿找到一个可以在每个对象模块中实现的解决方案.从ILDASM的角度来看,必须为我的每一个对象创建匿名类型都会变得混乱.当我说我在项目中实施了很多课程时,我不是在开玩笑.


EDIT2:我确实在MSFT Connect上打开了一个错误,VB PM结果的要点是他们会考虑它,但不要屏住呼吸:https: //connect.microsoft.com/VisualStudio/反馈/信息/ 636564 /签未选中的关键字,在视觉,基本

快速浏览.NET 4.5的变化表明他们还没有考虑过,所以也许.NET 5？

我的最终实现符合GetHashCode的约束,同时对于VB来说仍然是快速且独特的,从此页面上的"旋转哈希"示例中得出:

'// The only sane way to do hashing in VB.NET because it lacks the
'// checked/unchecked keywords that C# has.
Public Const HASH_PRIME1 As Int32 = 4
Public Const HASH_PRIME2 As Int32 = 28
Public Const INT32_MASK As Int32 = &HFFFFFFFF

Public Function RotateHash(ByVal hash As Int64, ByVal hashcode As Int32) As Int64
    Return ((hash << HASH_PRIME1) Xor (hash >> HASH_PRIME2) Xor hashcode)
End Function

我也认为"Shift-Add-XOR"哈希也可能适用,但我还没有测试过.

Answer 1

使用Long可以避免溢出:

Dim hash As Long = 17
'' etc..
Return CInt(hash And &H7fffffffL)

And运算符确保不会抛出溢出异常.然而,这确实在计算的哈希码中失去了一点"精度",结果总是正的.VB.NET没有内置函数来避免它,但你可以使用一个技巧:

Imports System.Runtime.InteropServices

Module NoOverflows
    Public Function LongToInteger(ByVal value As Long) As Integer
        Dim cast As Caster
        cast.LongValue = value
        Return cast.IntValue
    End Function

    <StructLayout(LayoutKind.Explicit)> _
    Private Structure Caster
        <FieldOffset(0)> Public LongValue As Long
        <FieldOffset(0)> Public IntValue As Integer
    End Structure
End Module

现在你可以写:

Dim hash As Long = 17
'' etc..
Return NoOverflows.LongToInteger(hash)

Answer 2

这是一个结合Hans Passant答案和Jon Skeet答案的实现.

它甚至可以用于数百万个属性(即没有整数溢出异常)并且非常快(对于具有1,000,000个字段的类生成哈希代码少于20毫秒,对于只有100个字段的类几乎不可测量).

这是处理溢出的结构:

<StructLayout(LayoutKind.Explicit)>
Private Structure HashCodeNoOverflow
    <FieldOffset(0)> Public Int64 As Int64
    <FieldOffset(0)> Public Int32 As Int32
End Structure

还有一个简单的GetHashCode函数:

Public Overrides Function GetHashCode() As Integer

    Dim hashCode As HashCodeNoOverflow

    hashCode.Int64 = 17

    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field1.GetHashCode
    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field2.GetHashCode
    hashCode.Int64 = CLng(hashCode.Int32) * 23 + Field3.GetHashCode

    Return hashCode.Int32

End Function

或者如果您愿意:

Public Overrides Function GetHashCode() As Integer

    Dim hashCode = New HashCodeNoOverflow With {.Int32 = 17}

    For Each field In Fields
        hashCode.Int64 = CLng(hashCode.Int32) * 23 + field.GetHashCode
    Next

    Return hashCode.Int32

End Function

Answer 3

我在vb.net中实现Skeet先生的解决方案时遇到了同样的问题.我最终使用Mod运算符到达那里.每个Mod by Integer.MaxValue应该只返回到该点的最不重要的组件,并且将始终在Integer.MaxValue和Integer.MinValue中 - 这应该与未选中的效果相同.你可能没有像我那样经常修改(只有当它有可能变得比一个长的大(这意味着要结合很多哈希码)然后一次结束时),但是这个的一个变种对我来说(并且让你玩一些像其他散列函数一样使用更大的素数而不用担心).

Public Overrides Function GetHashCode() As Int32
    Dim hash as Int64 = 17
    hash = (hash * 23 + _Name.GetHashCode()) Mod Integer.MaxValue
    hash = (hash * 23 + _Value) Mod Integer.MaxValue
    hash = (hash * 23 + _Type.GetHashCode()) Mod Integer.MaxValue
    Return Convert.ToInt32(hash)
End Function