1 ! Copyright (C) 2005, 2010 Slava Pestov, Daniel Ehrenberg.
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: sequences kernel accessors ;
7 TUPLE: column < sequence-view col ;
11 M: column virtual@ [ col>> swap ] [ seq>> ] bi nth bounds-check ;
13 : <flipped> ( seq -- seq' )
14 dup empty? [ dup first length [ <column> ] with map-integers ] unless ;