Handbook
Glossary
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*
;