perl6.suОсвоим perl6 к 2015 году!

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

   max      charta situs       nota XLIV <<     >> nota XLVI   

    RSS     stdin@perl6.su    © Alexius Karmanov, 2010-2011