Anonymous user
Menu: Difference between revisions
m
→{{header|Perl 6}}: style tweaks
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6 example) |
m (→{{header|Perl 6}}: style tweaks) |
||
Line 866:
<lang perl6>sub menu ( $prompt, @items ) {
return '' unless @items.elems;
repeat until my $selection
my $i = 1;
say " {$i++}) $_" for @items;
Line 876 ⟶ 874:
}
my @choices =
my $prompt = 'Enter the number corresponding to your selection: ';
| |||