如何在Raku中退出函数但不终止整个脚本执行？

我编写了一个仅接受正值数组的geometric_mean（几何平均数）函数，代码如下：

# 考虑边界情况
# 首先检查所有元素是否>0，否则抛出明确错误
# 若有元素为0则返回0
# 其他情况再进行计算

sub geometric_mean(@data) {
    if @data.any < 0 {die "无法为负值计算几何平均数"};
    if @data.any == 0 { return 0 };
    my $sum;
    for @data {
        $sum += log($_);
    }
    return exp($sum/@data.elems)    
}

执行如下脚本时：

my @data = [1, 2, 3.8, -1];
say geometric_mean(@data);

say "Hello world";

函数调用触发die导致整个脚本终止，后续的say "Hello world"无法执行。

给函数添加CATCH块后：

sub geometric_mean(@data) {
    if @data.any < 0 {die "无法为负值计算几何平均数"};
    CATCH { default { warn "    无法为负值计算几何平均数"; } };
    if @data.any == 0 { return 0 };
    my $sum;
    for @data {
        $sum += log($_);
    }
    return exp($sum/@data.elems)    
}

脚本虽能继续执行后续代码，但函数内的剩余代码也会被执行，不符合需求。我希望遇到负值时退出当前函数（不执行函数内剩余代码），但不终止整个脚本。

方法1：返回Failure对象 #

Raku中的Failure是一种特殊值，它会在被显式使用时抛出异常，若仅忽略返回值则脚本可继续执行。将die替换为返回Failure即可实现需求：

sub geometric_mean(@data) {
    if @data.any < 0 {
        return Failure.new(X::AdHoc.new(message => "无法为负值计算几何平均数"));
    }
    if @data.any == 0 { return 0 };
    my $sum;
    for @data {
        $sum += log($_);
    }
    return exp($sum/@data.elems)    
}

调用时可主动检查并处理Failure：

my @data = [1, 2, 3.8, -1];
my $result = geometric_mean(@data);
if $result ~~ Failure {
    warn $result.exception.message;
} else {
    say $result;
}
say "Hello world";

此方法下，函数遇到负值会直接返回Failure并终止后续代码执行，同时脚本整体不受影响。

方法2：在CATCH块中直接返回 #

调整CATCH块的作用范围，将风险代码包裹在try块内，并在CATCH中执行return终止函数：

sub geometric_mean(@data) {
    try {
        if @data.any < 0 {die "无法为负值计算几何平均数"};
        CATCH { 
            default { 
                warn .message; 
                return; # 直接返回，终止函数后续代码
            } 
        };
        if @data.any == 0 { return 0 };
        my $sum;
        for @data {
            $sum += log($_);
        }
        return exp($sum/@data.elems)    
    }
}

当die触发时，CATCH块会输出警告并立即返回，函数停止执行剩余逻辑，脚本可继续运行后续代码。

方法3：提前判断后warn并返回 #

无需使用异常机制，直接在检测到负值时输出警告并返回：

sub geometric_mean(@data) {
    if @data.any < 0 {
        warn "无法为负值计算几何平均数";
        return; # 返回Nil，终止函数执行
    }
    if @data.any == 0 { return 0 };
    my $sum;
    for @data {
        $sum += log($_);
    }
    return exp($sum/@data.elems)    
}

这种方式最为直接，遇到负值时立即终止函数，同时不影响脚本后续流程。

内容的提问来源于stack exchange，提问作者Suman