Language.ArrayForth.Distance

Documentation

type Distance = State -> State -> Double

A function that computes a measure of distance between two states. The larger the returned number, the more different the states.

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

Counts the number of bits that differ between two numbers.

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

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

locations :: [F18Word] -> Distance

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

distances :: [Distance] -> Distance

Combines multiple distance functions to create a new one, by summing the different distances.