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

benchmark: assert some results.

db4
John Benediktsson 2012-07-19 19:10:09 -07:00
parent 32ff5f4b9b
commit 8d08230f44
4 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/benchmark/backtrack/backtrack.factor
View File

@ -46,10 +46,8 @@ CONSTANT: words { 24-from-1 24-from-2 24-from-3 24-from-4 }
: backtrack-benchmark ( -- ) : backtrack-benchmark ( -- )
words [ reset-memoized ] each words [ reset-memoized ] each
find-impossible-24 pprint "/10000 quadruples can make 24." print find-impossible-24 6479 assert=
words [ words [ "memoize" word-prop assoc-size ] map
dup pprint " tested " write "memoize" word-prop assoc-size pprint { 1588 5137 4995 10000 } assert= ;
" possibilities" print
] each ;
MAIN: backtrack-benchmark MAIN: backtrack-benchmark

6
extra/benchmark/beust1/beust1.factor
View File

@ -1,14 +1,12 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math.ranges math.parser math.vectors sets sequences USING: kernel math.ranges math.parser sets sequences ;
kernel io ;
IN: benchmark.beust1 IN: benchmark.beust1
: count-numbers ( max -- n ) : count-numbers ( max -- n )
1 [a,b] [ number>string all-unique? ] count ; inline 1 [a,b] [ number>string all-unique? ] count ; inline
: beust1-benchmark ( -- ) : beust1-benchmark ( -- )
2000000 count-numbers 2000000 count-numbers 229050 assert= ;
number>string " unique numbers." append print ;
MAIN: beust1-benchmark MAIN: beust1-benchmark

4
extra/benchmark/beust2/beust2.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: math math.ranges math.parser sequences kernel io locals ; USING: kernel locals math math.ranges math.parser sequences ;
IN: benchmark.beust2 IN: benchmark.beust2
! http://crazybob.org/BeustSequence.java.html ! http://crazybob.org/BeustSequence.java.html
@ -34,6 +34,6 @@ IN: benchmark.beust2
:: beust2-benchmark ( -- ) :: beust2-benchmark ( -- )
0 :> i! 0 :> i!
5000000000 [ i 1 + i! ] count-numbers 5000000000 [ i 1 + i! ] count-numbers
i number>string " unique numbers." append print ; i 7063290 assert= ;
MAIN: beust2-benchmark MAIN: beust2-benchmark

7
extra/benchmark/terrain-generation/terrain-generation.factor
View File

@ -1,11 +1,10 @@
! (c)Joe Groff bsd license ! (c)Joe Groff bsd license
USING: io kernel math.vectors.simd terrain.generation threads ; USING: accessors kernel math.vectors.simd terrain.generation ;
FROM: alien.c-types => float ; FROM: alien.c-types => float ;
IN: benchmark.terrain-generation IN: benchmark.terrain-generation
: terrain-generation-benchmark ( -- ) : terrain-generation-benchmark ( -- )
"Generating terrain segment..." write flush yield <terrain> float-4{ 0 0 0 1 } terrain-segment
<terrain> float-4{ 0 0 0 1 } terrain-segment drop dim>> { 512 512 } assert= ;
"done" print ;
MAIN: terrain-generation-benchmark MAIN: terrain-generation-benchmark