Anonymous user
Optional parameters: Difference between revisions
→{{header|Perl 6}}
m (→{{header|Unix Shell}}: simplified output code) |
|||
Line 1,943:
Using named parameters:
<lang perl6>method sorttable(:$column = 0, :$reverse, :&ordering = &infix:<cmp>) {
my @result = self»[$column].sort: &ordering;
return $reverse ?? @result.reverse !! @result;
}</lang>
Using optional positional parameters:
<lang perl6>method sorttable-pos($column = 0, $reverse?, &ordering = &infix:<cmp>) {
my @result = self»[$column].sort: &ordering;
return $reverse ?? @result.reverse !! @result;
| |||