factor/extra/benchmark/tuple-arrays/tuple-arrays.factor

! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math sequences tuple-arrays ;
IN: benchmark.tuple-arrays

TUPLE: point { x float } { y float } { z float } ; final

TUPLE-ARRAY: point

: tuple-arrays-benchmark ( -- )
    1,000 iota [
        drop 5,000 <point-array> [
            [ 1 + ] change-x
            [ 1 - ] change-y
            [ 1 + 2 / ] change-z
        ] map [ z>> ] map-sum
    ] map-sum 0x1.312dp21 assert= ;

MAIN: tuple-arrays-benchmark
tuple-arrays: require that base type be final 2010-02-17 09:57:02 -05:00			`! Copyright (C) 2009, 2010 Slava Pestov.`
tuple-arrays: completely rewritten to use functors, 10x faster on benchmark 2009-04-26 14:31:10 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
benchmark.tuple-arrays: cleanup, assert result. 2014-06-02 11:40:05 -04:00			`USING: accessors kernel math sequences tuple-arrays ;`
tuple-arrays: completely rewritten to use functors, 10x faster on benchmark 2009-04-26 14:31:10 -04:00			`IN: benchmark.tuple-arrays`

tuple-arrays: require that base type be final 2010-02-17 09:57:02 -05:00			`TUPLE: point { x float } { y float } { z float } ; final`
tuple-arrays: completely rewritten to use functors, 10x faster on benchmark 2009-04-26 14:31:10 -04:00
			`TUPLE-ARRAY: point`

benchmark: rename main methods to be consistent. 2012-07-19 20:35:47 -04:00			`: tuple-arrays-benchmark ( -- )`
benchmark.tuple-arrays: cleanup, assert result. 2014-06-02 11:40:05 -04:00			`1,000 iota [`
			`drop 5,000 <point-array> [`
Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places, minor refactoring 2009-08-13 20:21:44 -04:00			`[ 1 + ] change-x`
			`[ 1 - ] change-y`
			`[ 1 + 2 / ] change-z`
sigma -> map-sum 2009-10-29 15:34:04 -04:00			`] map [ z>> ] map-sum`
benchmark.tuple-arrays: cleanup, assert result. 2014-06-02 11:40:05 -04:00			`] map-sum 0x1.312dp21 assert= ;`
tuple-arrays: completely rewritten to use functors, 10x faster on benchmark 2009-04-26 14:31:10 -04:00
benchmark: rename main methods to be consistent. 2012-07-19 20:35:47 -04:00			`MAIN: tuple-arrays-benchmark`