Nested function: Difference between revisions

Content added Content deleted
m (→‎{{header|Perl 6}}: add missing space)
Line 351:
=={{header|Perl 6}}==
 
<lang perl6>sub make-List ($separator = ') '){
my $count = 1;
 
sub make-Item ($item) { "{$count++}$separator $item" }
 
join "\n", <first second third>».&make-Item;
}
 
put make-List('. ');</lang>
{{out}}
<pre>1. first
Retrieved from "https://rosettacode.org/wiki/Nested_function"