4 lines
193 B
Mathematica
4 lines
193 B
Mathematica
textMenu[data_List] := (MapIndexed[Print[#2[[1]], ") ", #] &, {a, b, c}];
|
|
While[! (IntegerQ[choice] && Length[data] > choice > 0),
|
|
choice = Input["Enter selection"]];
|
|
data[[choice]])
|