steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/extra/benchmark/dawes/dawes.factor

17 lines
407 B
Factor
Raw Normal View History

update vocabs so a load-all on macosx works without parsing c-type strings
2009-09-27 16:11:21 -04:00
USING: alien.c-types sequences kernel math specialized-arrays
fry ;
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
SPECIALIZED-ARRAY: int
Benchmark updates
2008-09-03 08:25:34 -04:00
IN: benchmark.dawes
! Phil Dawes's performance problem
Fix dawes benchmark
2008-12-03 07:21:02 -05:00
: count-ones ( int-array -- n ) [ 1 = ] count ; inline
Benchmark updates
2008-09-03 08:25:34 -04:00
Fix dawes benchmark
2008-12-03 07:21:02 -05:00
: make-int-array ( -- int-array )
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota-tuple ... ;
2017-06-01 17:59:35 -04:00
120000 <iota> [ 255 bitand ] int-array{ } map-as ; inline
Benchmark updates
2008-09-03 08:25:34 -04:00
: dawes-benchmark ( -- )
Specialized array overhaul - Replace hand-written specialized-arrays.* subvocabularies with new system; instead of USE:ing specialized-arrays.T, do SPECIALIZED-ARRAY: T - Ditto for specialized-vectors; use SPECIALIZED-VECTOR: - io.mmap.functor: removed entirely, use <mapped-array> instead - struct-arrays and struct-vectors have been removed because specialized arrays and vectors subsume them entirely
2009-09-09 23:33:34 -04:00
200 make-int-array '[ _ count-ones ] replicate drop ;
Benchmark updates
2008-09-03 08:25:34 -04:00
MAIN: dawes-benchmark