22 lines
478 B
Factor
22 lines
478 B
Factor
|
! Copyright (C) 2012 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
|
||
|
|
USING: kernel make math sequences ;
|
||
|
|
|
||
|
|
IN: benchmark.make
|
||
|
|
|
||
|
|
: make-strings ( n -- seq )
|
||
|
|
[ [ CHAR: a , ] times ] "" make ;
|
||
|
|
|
||
|
|
: make-arrays ( n -- seq )
|
||
|
|
[ iota [ , ] each ] { } make ;
|
||
|
|
|
||
|
|
: make-vectors ( n -- seq )
|
||
|
|
[ iota [ , ] each ] V{ } make ;
|
||
|
|
|
||
|
|
: make-benchmark ( -- )
|
||
|
|
5,000 iota [
|
||
|
|
[ make-strings ] [ make-arrays ] [ make-vectors ] tri
|
||
|
|
3drop
|
||
|
|
] each ;
|