steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

benchmark.tuple-arrays: cleanup, assert result.

db4
John Benediktsson 2014-06-02 08:40:05 -07:00
parent fd1dc5ce01
commit 6e834cd0de
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/benchmark/tuple-arrays/tuple-arrays.factor
View File

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