Perl6 cmp两个字符串是否可以不区分大小写？

Question

我正在进行排序，并希望控制alpha值的cmp不区分大小写（即。https://perl6.org/archive/rfc/143.html).

有没有：我可能是这个的副词？

Answer 1

您可以传递代码块进行排序。如果块的arity为1，则在进行比较时，它对两个元素都有效。下面是一个示例，显示了上一个答案中的“fc”。

> my @a = <alpha BETA gamma DELTA>;
[alpha BETA gamma DELTA]
> @a.sort
(BETA DELTA alpha gamma)
> @a.sort(*.fc)
(alpha BETA DELTA gamma)

Answer 2

如果您想要“字典”排序顺序，@timotimo在他们建议colate和coll进行排序时是正确的。

对列表中的任何内容使用collate（）进行排序。如果需要自定义排序，请使用中缀运算符。

$ perl6
To exit tyype 'exit' or '^D'
> <a Zp zo zz ab 9 09 91 90>.collate();
(09 9 90 91 a ab zo Zp zz)
> <a Zp zo zz ab 9 09 91 90>.sort: * coll *;
(09 9 90 91 a ab zo Zp zz)

Answer 3

Perl

由于现有的协议不允许命名值，我们必须添加一个新的，或只写一个子项（也就是说，您可以只使用下面的多个协议，除非有一个可选的只写协议）

这仅在词汇上适用，因此，如果编写此脚本，可能需要根据您所做的操作，将proto/only子脚本标记为可导出。

proto sub infix:<leg> ( \a, \b, *% ){*}

multi sub infix:<leg> ( \a, \b, :ignore-case(:$i) ){
  $i

  ?? &CORE::infix:<leg>( fc(a) , fc(b) )
  !! &CORE::infix:<leg>(    a  ,    b  )
}

say 'a' leg 'A';     # More
say 'a' leg 'A' :i;  # Same
say 'a' leg 'A' :!i; # More

say 'a' leg 'A' :ignore-case; # Same

请注意，：$i是：i（$i）的缩写，因此这两个命名参数可以写成：
：忽略大小写（：i（$i））

此外，我还使用了fc（）的子表单，而不是方法表单。因为它允许使用字符串的本机形式，而不会导致自动装箱。