QUALIFIED: alien.c-types STRUCT: float-3 { xyz alien.c-types:float[3] } ; SPECIALIZED-ARRAY: float-3 TYPED:: min-distance ( points: float-3-array -- dist ) points length iota :> iter 1/0. :> mn! iter [| i | iter [| j | i j = [ i points nth j points nth [ xyz>> ] bi@ distance mn min mn! ] unless ] each ] each mn ; ( scratchpad ) 10000 [ 3 [ [ 3 [ 0 1 uniform-random-float ] replicate >float-array float-3 ] float-3-array{ } replicate-as ] with-random min-distance . ] time 0.001421769884698972 Running time: 4.681582435 seconds