20 lines
461 B
Factor
20 lines
461 B
Factor
|
! Copyright (C) 2012 John Benediktsson
|
||
|
|
! See http://factorcode.org/license.txt for BSD license
|
||
|
|
USING: accessors arrays kernel math sequences
|
||
|
|
sequences.private ;
|
||
|
|
IN: sequences.zipped
|
||
|
|
|
||
|
|
TUPLE: zipped
|
||
|
|
{ keys sequence read-only }
|
||
|
|
{ values sequence read-only } ;
|
||
|
|
|
||
|
|
C: <zipped> zipped
|
||
|
|
|
||
|
|
M: zipped length
|
||
|
|
[ keys>> ] [ values>> ] bi min-length ;
|
||
|
|
|
||
|
|
M: zipped nth-unsafe
|
||
|
|
[ keys>> nth-unsafe ] [ values>> nth-unsafe ] 2bi 2array ;
|
||
|
|
|
||
|
|
INSTANCE: zipped immutable-sequence
|