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 ] ] dip [ set-nth ] curry compose each-index ]
    keep ;