APL代码优化：对同一右操作数批量应用函数并提前返回结果

我有3个parse函数，调用示例如下：

parse_apple 1 'bpple4578'
┌─┬─────────┐
│0│bpple4578│
└─┴─────────┘

parse_bpple 1 'bpple4578'
┌─┬────┐
│1│4578│
└─┴────┘

parse_45 1 'bpple4578'
┌─┬─────────┐
│0│bpple4578│
└─┴─────────┘

我希望将这组函数依次应用到'bpple4578'上，一旦某个函数返回结果的第一个元素等于1，就立即返回该结果。我尝试了以下代码：

⍝ 从网上找的代码
split ← ⊢⊂⍨(⍴⊢)⍴1↑⍨⊣
test ← { (parse_apple, parse_45, parse_bpple) ¨(⊂⍵)}
data ← test 1 'bpple4578'
results ← 2 split ⊃data
⍝ 筛选符合条件的结果
x ← results/⍨1=⊃¨results
⎕ ← ⊃x

请问有没有更优的实现方式，能够移除split函数和ravel符号？

可以直接利用APL的数组特性简化逻辑，完全不需要split函数和ravel操作，同时还能满足需求：

方案1：直接筛选取第一个匹配项 #

findFirstMatch ← {
    funcs ← parse_apple, parse_45, parse_bpple
    results ← funcs ¨ ⊂⍵  ⍝ 批量调用所有函数
    ⊃ results/⍨1=⊃¨results  ⍝ 筛选首元素为1的结果，取第一个
}
⎕ ← findFirstMatch 1 'bpple4578'

这段代码里，funcs ¨ ⊂⍵返回的结果结构可直接处理，用⊃¨results提取每个结果的首元素，判断是否等于1后筛选，最后用⊃取第一个匹配结果即可，完全绕开了split和ravel操作。

方案2：短路求值（提前终止，无需调用所有函数） #

如果希望一旦找到符合条件的结果就停止调用后续函数（提升性能，尤其当函数执行成本高时），可以用递归实现短路逻辑：

findFirstMatchShortCircuit ← {
    ⍝ 参数：函数列表，输入参数
    funcs ← ⊃⍺
    :If 0=≢funcs
        ⍝ 无匹配函数时返回默认值，可按需修改
        ⊂0 ''
    :EndIf
    result ← ⊃funcs ⍵
    :If 1=⊃result
        result
    :Else
        (1↓funcs)∇⍵
    :EndIf
}
⎕ ← (parse_apple, parse_45, parse_bpple) findFirstMatchShortCircuit 1 'bpple4578'

这个递归版本会依次调用函数，每调用一个就检查结果，一旦首元素为1就立即返回，不会继续调用剩下的函数，比批量调用所有函数更高效。

关键优化点 #

• 去掉冗余的split函数：原代码中split用于拆分嵌套数组，但实际批量调用返回的结果结构可直接处理，无需额外拆分。
• 移除ravel操作：直接通过⊃¨提取每个结果的首元素，逻辑更直观。
• 可选短路求值：避免不必要的函数调用，适合函数执行开销大的场景。

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