print-menu ( seq -- )

Vocabulary

rosetta-code.menu

Inputs

seq

an object

Outputs

None

Definition

USING: formatting io kernel math sequences ;

IN: rosetta-code.menu

: print-menu ( seq -- )
    [ 1 + swap "%d - %s\n" printf ] each-index
    "Your choice? " write flush ;