constraints - 如何命名约束

Question

我有一个接受 slurpy 数组的函数，我想将数组的内容限制为 0 到 255 之间的 Int。因此，使用 raku 的良好文档，我发现我可以编写:

my &simp = -> *@a where { 0 <= $_.all <= 255 } { @a <<+>> 10 }
say &simp( 2, 3, 4);
# returns: [12 13 14] 

根据需要，如果我提供的列表不在范围内，那么我会正确收到错误，即。

say &simp( 2,3,400 );
# Constraint type check failed in binding to parameter '@a'; expected anonymous constraint to be met but got Array ($[2, 3, 400])

是否可以以某种方式命名约束，以便错误消息可以提供更好的响应？

如果要使用多个子程序进行编码，则将提供带有错误消息的默认子程序。但是对于内联尖头??

Answer 1

您可以尝试使用||在where子句中生成错误运算符。

my &simp = -> *@a where { (0 <= $_.all <= 255) || die 'not in Range' } { @a <<+>> 10 }
say &simp( 2, 3, 4);
# returns: [12 13 14]

say &simp( 2,3,400 );
#not in Range