[ number>string ] { } map-as ", " join print ; inline
: simd-benchmark ( len -- )
- >fixnum make-points [ normalize-points ] [ vsupremum ] bi print-point ;
+ >fixnum make-points [ normalize-points ] [ vmaximum ] bi print-point ;
: simd-1-benchmark ( -- )
10 [ 500000 simd-benchmark ] times ;