SPECIALIZED-ARRAY: float-4

TYPED:: min-distance ( points: float-4-array -- dist )
points length :> N
1/0. :> mn!
N iota [| i | i iota [| j | i points nth j points nth distance mn { float } declare min mn! ] each ] each
mn ;

10000
[
  3 <mersenne-twister>
  [ [ 3 [ 0 1 uniform-random-float ] replicate 0 suffix >float-array >float-4 ] float-4-array{ } replicate-as ] with-random
  min-distance .
] time
0.001421769850965218
Running time: 0.8185219070000001 seconds