September Morn Update

Task/Menu/J/menu.j

@@ -0,0 +1,18 @@
+CHOICES =: ];._2 'fee fie;huff and puff;mirror mirror;tick tock;'
+PROMPT =: 'Which is from the three pigs? '
+
+showMenu =: smoutput@:(,"1~ (' ' ,.~ 3 ": i.@:(1 ,~ #)))
+read_stdin =: 1!:1@:1:
+
+menu =: '? '&$: :(4 : 0)
+ NB. use:  [prompt] menu choice_array
+ CHOICES =. y
+ if. 0 = # CHOICES do. return. end.
+ PROMPT =. x
+ whilst. RESULT -.@:e. i. # CHOICES do.
+  showMenu CHOICES
+  smoutput PROMPT
+  RESULT =. _1 ". read_stdin''
+ end.
+ RESULT {:: CHOICES
+)