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