alphabet-inverse ( alphabet -- seq )

Vocabulary

base64.private

Inputs

alphabet

an object

Outputs

seq

an object

Definition

USING: arrays kernel math sequences ;

IN: base64.private

: alphabet-inverse ( alphabet -- seq )
    dup maximum 1 + f <array>
    [ '[ swap _ set-nth ] each-index ] keep ;