Optional parameters: Difference between revisions
Content added Content deleted
(→{{header|Perl}}: add Perl 6 entry) |
|||
| Line 826: | Line 826: | ||
print "\n";}</lang> |
print "\n";}</lang> |
||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
Using named parameters: |
|||
<lang perl6>method sorttable(:$column = 0, :$reverse, :&ordering = &cmp) { |
<lang perl6>method sorttable(:$column = 0, :$reverse, :&ordering = &infix:<cmp>) { |
||
my @result = self»[$column].sort: &ordering; |
my @result = self»[$column].sort: &ordering; |
||
return $reverse ?? @result.reverse !! @result; |
return $reverse ?? @result.reverse !! @result; |
||