1 ! Copyright (C) 2004, 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: arrays kernel math sequences sequences.private growable ;
8 { length array-capacity } ;
10 : <vector> ( n -- vector ) f <array> 0 vector boa ; inline
12 : >vector ( seq -- vector ) V{ } clone-like ;
16 dup array? [ dup length vector boa ] [ >vector ] if
19 M: vector new-sequence
20 drop [ f <array> ] [ >fixnum ] bi vector boa ;
23 over vector? [ sequence= ] [ 2drop f ] if ;
25 M: sequence new-resizable drop <vector> ;
27 INSTANCE: vector growable
29 : 1vector ( x -- vector ) 1array >vector ;
31 : ?push ( elt seq/f -- seq )
32 [ 1 <vector> ] unless* [ push ] keep ;