select ( seq -- result )

Vocabulary

rosetta-code.menu

Inputs

seq

an object

Outputs

result

an object

Definition

USING: io kernel math math.parser sequences ;

IN: rosetta-code.menu

: select ( seq -- result )
    dup print-menu readln string>number
    [ 1 - swap 2dup bounds-check? [ nth ] [ nip select ] if ]
    [ select ] if* ;