Nested function: Difference between revisions
Content added Content deleted
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 |
||