5 lines
150 B
Factor
5 lines
150 B
Factor
USING: kernel math.vectors sequences ;
|
|
|
|
: dot-product ( u v -- w )
|
|
2dup [ length ] bi@ =
|
|
[ v. ] [ "Vector lengths must be equal" throw ] if ;
|