RosettaCodeData/Task/Optional-parameters/Perl-6/optional-parameters-1.pl6

5 lines
174 B
Raku
Raw Permalink Normal View History

2013-04-10 23:57:08 -07:00
method sorttable(:$column = 0, :$reverse, :&ordering = &infix:<cmp>) {
my @result = self»[$column].sort: &ordering;
return $reverse ?? @result.reverse !! @result;
}