1 ! Copyright (C) 2012 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: kernel make math sequences ;
8 : make-strings ( n -- seq )
9 [ [ CHAR: a , ] times ] "" make ;
11 : make-arrays ( n -- seq )
14 : make-vectors ( n -- seq )
15 [ iota % ] V{ } make ;
17 : make-benchmark ( -- )
19 [ make-strings ] [ make-arrays ] [ make-vectors ] tri