sequence - 为什么 Perl 6 序列 'A' ... 'AA' 只有一个元素？

Question

今天我注意到序列'A' ... 'AA'只包含一个元素:

> 'A' ... 'AA'
(A)

我认为它会包含 27:字母加上最后的 AA .

如果我明确提供一个生成器，它会:

> 'A', *.succ ... 'AA'
(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z AA)

文档说默认生成器是 *.succ或 *.pred取决于端点的比较方式。但:

> 'A' cmp 'AA'
Less

所以看来我应该得到 *.succ默认生成器。我绝对没有收到 *.pred发电机:

> 'A', *.pred ... 'AA'
Decrement out of range
  in whatevercode  at <unknown file> line 1

这里发生了什么？

Answer 1

查看它使用的是哪个代码:rakudo/operators

你的代码非常类似于

"A", *.succ ...^ * gt "AA"

( "B" gt "AA" 是 True )

Curt Tilmes 的代码类似于

"A", *.succ ...^ {$_ gt "ZZ" or .chars > "ZZ".chars}
"A", *.succ ...^ {$_ gt "YY" or .chars > "YY".chars}

( "Z" gt "YY" 和 "AAA".chars > "ZZ".chars 是 True )