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

benchmark.make: use % (push-all).

db4
John Benediktsson 2012-04-20 10:51:51 -07:00
parent 7f7cb5cdf9
commit 60b83c7241
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,10 +9,10 @@ IN: benchmark.make
[ [ CHAR: a , ] times ] "" make ; [ [ CHAR: a , ] times ] "" make ;
: make-arrays ( n -- seq ) : make-arrays ( n -- seq )
[ iota [ , ] each ] { } make ; [ iota % ] { } make ;
: make-vectors ( n -- seq ) : make-vectors ( n -- seq )
[ iota [ , ] each ] V{ } make ; [ iota % ] V{ } make ;
: make-benchmark ( -- ) : make-benchmark ( -- )
5,000 iota [ 5,000 iota [