9 Apr
2006
9 Apr
'06
6:31 a.m.
Hello Robert, Sunday, April 9, 2006, 2:54:58 AM, you wrote:
findMinIndex :: Word -> Int findMaxIndex :: Word -> Int
on the other side, these procedures can use the same divide-to-bytes technique as `size` findMinIndex 0 = undefined findMinIndex n = case (n `shiftR` 8) of 0 -> minIndexInByte ! (n .&. 255) b -> 8 + findMinIndex b something like this should work -- Best regards, Bulat mailto:Bulat.Ziganshin@gmail.com