6 lines
301 B
Text
6 lines
301 B
Text
require 'general/misc/prompt' NB. in older versions of J this was: require'misc'
|
|
showMenu =: i.@# smoutput@,&":&> ' '&,&.>
|
|
makeMsg =: 'Choose a number 0..' , ': ',~ ":@<:@#
|
|
errorMsg =: [ smoutput bind 'Please choose a valid number!'
|
|
|
|
select=: ({::~ _&".@prompt@(makeMsg [ showMenu)) :: ($:@errorMsg)
|