2 USING: kernel sequences multi-methods accessors math.vectors ;
8 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
10 GENERIC: distance ( a b -- c )
12 METHOD: distance { sequence sequence } v- norm ;
14 METHOD: distance { pos pos } [ pos>> ] bi@ distance ;
16 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!