Nested function: Difference between revisions
Content deleted Content added
Thundergnat (talk | contribs) →{{header|Perl 6}}: Add Perl 6 |
Thundergnat (talk | contribs) m →{{header|Perl 6}}: add missing space |
||
Line 351: | Line 351: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
<lang perl6>sub make-List ($separator = ')'){ |
<lang perl6>sub make-List ($separator = ') '){ |
||
my $count = 1; |
my $count = 1; |
||
sub make-Item ($item) { "{$count++}$separator |
sub make-Item ($item) { "{$count++}$separator$item" } |
||
join "\n", <first second third>».&make-Item; |
join "\n", <first second third>».&make-Item; |
||
} |
} |
||
put make-List('.');</lang> |
put make-List('. ');</lang> |
||
{{out}} |
{{out}} |
||
<pre>1. first |
<pre>1. first |