! QUALIFIED: alien.c-types 
! STRUCT: float-3 { xyz alien.c-types:float[3] } ;
SPECIALIZED-ARRAY: float-4

TYPED:: min-distance ( points: float-4-array -- dist )
points length iota :> iter
1/0. :> mn!
iter [| i | iter [| j | i j = [ i points nth j points nth distance mn min mn! ] unless ] 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: 2.801278933 seconds