core/vectors/vectors.factor

   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 ;
   4 IN: vectors
   5
   6 TUPLE: vector
   7 { underlying array }
   8 { length array-capacity } ;
   9
  10 : <vector> ( n -- vector ) f <array> 0 vector boa ; inline
  11
  12 : >vector ( seq -- vector ) V{ } clone-like ;
  13
  14 M: vector like
  15     drop dup vector? [
  16         dup array? [ dup length vector boa ] [ >vector ] if
  17     ] unless ;
  18
  19 M: vector new-sequence
  20     drop [ f <array> ] [ >fixnum ] bi vector boa ;
  21
  22 M: vector equal?
  23     over vector? [ sequence= ] [ 2drop f ] if ;
  24
  25 M: sequence new-resizable drop <vector> ;
  26
  27 INSTANCE: vector growable
  28
  29 : 1vector ( x -- vector ) 1array >vector ;
  30
  31 : ?push ( elt seq/f -- seq )
  32     [ 1 <vector> ] unless* [ push ] keep ;