make-jumbled-array ( -- sorted jumbled )

Vocabulary

rosetta-code.number-reversal

Inputs

None

Outputs

sorted	an object
jumbled	an object

Definition

USING: kernel random ranges sequences strings ;

IN: rosetta-code.number-reversal

: make-jumbled-array ( -- sorted jumbled )
    49 57 [a..b] [ 1string ] map dup clone randomize
    [ 2dup = ] [ randomize ] while ;