game-loop ( sorted jumbled -- )

Vocabulary

rosetta-code.number-reversal

Inputs

sorted	an object
jumbled	an object

Outputs

None

Definition

USING: formatting io kernel math namespaces sequences ;

IN: rosetta-code.number-reversal

: game-loop ( sorted jumbled -- )
    2dup = [
        2drop
        trials get
        "\nYou took %d attempts to put the digits in order!\n"
        printf flush
    ] [
        trials [ 1 + ] change dup dup prompt head-slice
        reverse! drop game-loop
    ] if ;