n-based-assoc - Factor Documentation

Vocabulary
sequences.n-based

Class description
An adaptor class that allows a sequence to be treated as an assoc with non-zero-based keys.

Examples

USING: assocs prettyprint kernel sequences.n-based ;
IN: scratchpad

: months ( -- assoc )
    {
        "January"
        "February"
        "March"
        "April"
        "May"
        "June"
        "July"
        "August"
        "September"
        "October"
        "November"
        "December"
    } 1 <n-based-assoc> ;

10 months at .

"October"

See also
<n-based-assoc>

Definition

IN: sequences.n-based

TUPLE: n-based-assoc seq base ;

Methods

USING: accessors assocs kernel sequences.n-based
sequences.n-based.private ;

M: n-based-assoc >alist [ n-based-keys ] [ seq>> ] bi zip ;

USING: accessors assocs sequences sequences.n-based ;

M: n-based-assoc assoc-size seq>> length ;

USING: assocs kernel sequences sequences.n-based
sequences.n-based.private sequences.private ;

M: n-based-assoc at*
    n-based@ 2dup bounds-check?
    [ nth-unsafe t ] [ 2drop f f ] if ;

USING: accessors assocs sequences sequences.n-based ;

M: n-based-assoc clear-assoc seq>> delete-all ;

USING: assocs kernel sequences sequences.n-based
sequences.n-based.private ;

M: n-based-assoc delete-at [ f ] 2dip n-based@ set-nth ;

USING: assocs sequences sequences.n-based
sequences.n-based.private ;

M: n-based-assoc set-at n-based@ set-nth ;