benchmark.tuple-arrays: cleanup, assert result.
parent
fd1dc5ce01
commit
6e834cd0de
|
@ -1,7 +1,6 @@
|
|||
! Copyright (C) 2009, 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel math math.functions tuple-arrays accessors fry sequences
|
||||
prettyprint ;
|
||||
USING: accessors kernel math sequences tuple-arrays ;
|
||||
IN: benchmark.tuple-arrays
|
||||
|
||||
TUPLE: point { x float } { y float } { z float } ; final
|
||||
|
@ -9,12 +8,12 @@ TUPLE: point { x float } { y float } { z float } ; final
|
|||
TUPLE-ARRAY: point
|
||||
|
||||
: tuple-arrays-benchmark ( -- )
|
||||
100 iota [
|
||||
drop 5000 <point-array> [
|
||||
1,000 iota [
|
||||
drop 5,000 <point-array> [
|
||||
[ 1 + ] change-x
|
||||
[ 1 - ] change-y
|
||||
[ 1 + 2 / ] change-z
|
||||
] map [ z>> ] map-sum
|
||||
] map-sum . ;
|
||||
] map-sum 0x1.312dp21 assert= ;
|
||||
|
||||
MAIN: tuple-arrays-benchmark
|
||||
|
|
Loading…
Reference in New Issue