4 lines
316 B
Text
4 lines
316 B
Text
vecl =: +/"1&.:*: NB. length of each vector
|
|
dist =: <@:vecl@:({: -"1 }:)\ NB. calculate all distances among vectors
|
|
minpair=: ({~ > {.@($ #: I.@,)@:= <./@;)dist NB. find one pair of the closest points
|
|
closestpairbf =: (; vecl@:-/)@minpair NB. the pair and their distance
|