padded-head

Vocabulary

sequences.padded

Definition

IN: sequences.padded

TUPLE: padded-head < padded ;

Methods

USING: accessors sequences sequences.padded ;

M: padded-head like underlying>> like ;


USING: accessors kernel math math.order sequences
sequences.padded sequences.private ;

M: padded-head nth-unsafe
    [ [ length>> ] [ underlying>> ] bi [ length [-] - ] keep ]
    keep 2over bounds-check?
    [ drop nth-unsafe ] [ 2nip elt>> ] if ;