Nested function: Difference between revisions
Content added Content deleted
(Added Io entry.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add Perl 6) |
||
Line 348:
print makeList(". ");</lang>
=={{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
2. second
3. third</pre>
=={{header|PHP}}==
| |||