На поиск бага, вызванного фичей ниже, я потратил целый день, а теперь, пожалуйста, просто объясните мне эту магию:
> hash (1.0, 2.0);;
val it : int = 2112880640
> hash (2.0, 1.0);;
val it : int = 2146435072
> hash (1.0, 0.0);;
val it : int = 1039138816
> hash (0.0, 1.0);;
val it : int = 1072693248
> hash (2.0, 0.0);;
val it : int = 1073741824
> hash (0.0, 2.0);;
val it : int = 1073741824