Language.ArrayForth.Distance

Documentation

type Distance = Sum Double

countBits :: (Integral n, Bits n) => n -> n -> Int

Counts the number of bits that differ between two numbers.

registers :: [State -> F18Word] -> State -> State -> Distance

Return a distance function that counts the different bits between the given registers. You could use it like `compareRegisters [s, t]`.

locations :: [F18Word] -> State -> State -> Distance

Returns a distance function that counts the different bits between the given memory locations.

matching :: Eq a => (State -> a) -> Trace -> Trace -> Distance

Returns a score that counts the number of matching states according to some projection function.