1 ! Copyright (C) 2009, 2010 Slava Pestov.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: accessors kernel math sequences tuple-arrays ;
4 IN: benchmark.tuple-arrays
6 TUPLE: point { x float } { y float } { z float } ; final
10 : tuple-arrays-benchmark ( -- )
12 drop 5,000 <point-array> [
17 ] map-sum 0x1.312dp21 assert= ;
19 MAIN: tuple-arrays-benchmark