20 lines
512 B
Factor
20 lines
512 B
Factor
|
! Copyright (C) 2009 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: kernel math math.functions tuple-arrays accessors fry sequences
|
||
|
|
prettyprint ;
|
||
|
|
IN: benchmark.tuple-arrays
|
||
|
|
|
||
|
|
TUPLE: point { x float } { y float } { z float } ;
|
||
|
|
|
||
|
|
TUPLE-ARRAY: point
|
||
|
|
|
||
|
|
: tuple-array-benchmark ( -- )
|
||
|
|
100 [
|
||
|
|
drop 5000 <point-array> [
|
||
|
|
[ 1+ ] change-x
|
||
|
|
[ 1- ] change-y
|
||
|
|
[ 1+ 2 / ] change-z
|
||
|
|
] map [ z>> ] sigma
|
||
|
|
] sigma . ;
|
||
|
|
|
||
|
|
MAIN: tuple-array-benchmark
|