extra/sequences/zipped/zipped.factor

   1 ! Copyright (C) 2012 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: accessors arrays kernel sequences sequences.private ;
   4 IN: sequences.zipped
   5
   6 TUPLE: zipped
   7 { keys sequence read-only }
   8 { values sequence read-only } ;
   9
  10 C: <zipped> zipped
  11
  12 M: zipped length
  13     [ keys>> ] [ values>> ] bi min-length ;
  14
  15 M: zipped nth-unsafe
  16     [ keys>> nth-unsafe ] [ values>> nth-unsafe ] 2bi 2array ;
  17
  18 INSTANCE: zipped immutable-sequence