core/bit-vectors/bit-vectors.factor

   1 ! Copyright (C) 2008 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: arrays kernel kernel.private math sequences\r
   4 sequences.private growable bit-arrays ;\r
   5 IN: bit-vectors\r
   6 \r
   7 <PRIVATE\r
   8 \r
   9 : bit-array>vector ( bit-array length -- bit-vector )\r
  10     bit-vector boa ; inline\r
  11 \r
  12 PRIVATE>\r
  13 \r
  14 : <bit-vector> ( n -- bit-vector )\r
  15     <bit-array> 0 bit-array>vector ; inline\r
  16 \r
  17 : >bit-vector ( seq -- bit-vector ) ?V{ } clone-like ;\r
  18 \r
  19 M: bit-vector like\r
  20     drop dup bit-vector? [\r
  21         dup bit-array?\r
  22         [ dup length bit-array>vector ] [ >bit-vector ] if\r
  23     ] unless ;\r
  24 \r
  25 M: bit-vector new-sequence\r
  26     drop [ <bit-array> ] keep >fixnum bit-array>vector ;\r
  27 \r
  28 M: bit-vector equal?\r
  29     over bit-vector? [ sequence= ] [ 2drop f ] if ;\r
  30 \r
  31 M: bit-array new-resizable drop <bit-vector> ;\r
  32 \r
  33 INSTANCE: bit-vector growable\r