<reflector> ( -- reflector )

Vocabulary

enigma

Inputs

None

Outputs

reflector

an object

Definition

USING: kernel random sequences vectors ;

IN: enigma

: <reflector> ( -- reflector )
    <alphabet> dup length <iota> >vector
    [ dup empty? ] [
        [ [ delete-random ] [ delete-random ] bi pick exchange ]
        keep
    ] until drop ;