USING: kernel hints math math.ranges math.bitwise layouts sequences tools.time ;
IN: noise

<PRIVATE

: mix ( b c roll_num -- i j )
  [ dupd bitxor over ] dip
  bitroll-32 - ; inline

: hash ( a b c -- h )
  14 mix
  rot 11 mix
  rot 25 mix
  rot 16 mix
  rot 4  mix
  rot 14 mix
  rot 24 mix
  2nip ; inline

: noise2 ( x y -- h )
  HEX: deadbeef 
  hash 
  >float most-positive-fixnum / ; inline 

: bench-x ( x-dimension -- )
  0 100000 [a,b] [ over noise2 drop ] each drop ; inline

: bench ( -- )
  0 100000 [a,b] [ bench-x ] each ; 

PRIVATE>

: run-bench ( -- )
  [ bench ] time ;