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 math sequences
   4 sequences.private ;
   5 IN: sequences.zipped
   6
   7 TUPLE: zipped
   8 { keys sequence read-only }
   9 { values sequence read-only } ;
  10
  11 C: <zipped> zipped
  12
  13 M: zipped length
  14     [ keys>> ] [ values>> ] bi min-length ;
  15
  16 M: zipped nth-unsafe
  17     [ keys>> nth-unsafe ] [ values>> nth-unsafe ] 2bi 2array ;
  18
  19 INSTANCE: zipped immutable-sequence