$shuffle ( element -- )

Vocabulary

help.markup

Inputs

element

an object

Outputs

None

Definition

USING: arrays kernel sequences ;

IN: help.markup

: $shuffle ( element -- )
    "This is a shuffle word, rearranging the top of the datastack ..."
    swap ?first [ ": " swap "." 4array ] [ "." append ] if*
    $description ;