alphabet-zip ( seq -- zip )

Vocabulary

quiz

Inputs

seq

an object

Outputs

zip

an object

Definition

USING: assocs kernel math sequences strings ;

IN: quiz

: alphabet-zip ( seq -- zip )
    [ length <iota> [ 97 + 1string ] { } map-as ] keep zip ;