unmaintained/physics/pos/pos.factor

   1
   2 USING: kernel sequences multi-methods accessors math.vectors ;
   3
   4 IN: math.physics.pos
   5
   6 TUPLE: pos pos ;
   7
   8 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   9
  10 GENERIC: distance ( a b -- c )
  11
  12 METHOD: distance { sequence sequence } v- norm ;
  13
  14 METHOD: distance { pos pos } [ pos>> ] bi@ distance ;
  15
  16 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  17