 
nota XLV. Безумный max
Интересный новый оператор, max. Возвращает максимальное число из списка.| | #!/usr/bin/perl6
my $max=-7 max 10;
$max.say;
$max=-1 max 1 max 3;
$max.say;
# то же можно записать иначе
$max=[max] -1, 1, 3;
$max.say;
# а как работает с массивами?
my @list=<-101 28 35 19 101 59 3>;
$max=[max] @list;
$max.say; | | 10
3
3
59 |
А почему 59? Есть же 101!| | #!/usr/bin/perl6
my @list=<-101 28 35 61 19 101 59 3>;
my $max=[max] @list;
$max.say;
@list=<-101 28 9 35 61 19 101 59 3>;
$max=[max] @list;
$max.say; | | 61
9 |
То есть в виде [max] @list он сортирует по кодировке, где 9 больше 11?| | #!/usr/bin/perl6
my $max=[max] -101, 28, 9, 35, 61, 19, 101, 59, 3;
$max.say; | | 101 |
Похоже на то. А как сделать так, чтобы сортировать массив по <=>? В документации я нашел, что по умолчанию используется cmp сравнение. А как вставить мутатор - пока не нашел.
# mutatio postrema: 2 Sep 2010
|