From f88611fc62d1cc0e36d1be78c64ad66198c63a4c Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Sat, 12 Aug 2006 10:38:35 +0000 Subject: [PATCH] markup fix to Data.HashTable --- Data/HashTable.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/Data/HashTable.hs b/Data/HashTable.hs index fda647e..f78f0cc 100644 --- a/Data/HashTable.hs +++ b/Data/HashTable.hs @@ -192,6 +192,7 @@ golden = -1640531527 -- implemented by extracting the uppermost 32 bits of the 64-bit -- result of multiplying by a 32-bit constant. The constant is from -- Knuth, derived from the golden ratio: +-- -- > golden = round ((sqrt 5 - 1) * 2^31) :: Int hashInt :: Int -> Int32 hashInt x = mulHi (fromIntegral x) golden -- 1.7.10.4