为何该表达式在GNU APL中报错?求Dyalog兼容的GNU写法
问题描述
这段代码在Dyalog APL中可正常运行:
{10<⊃⍵:⍵ ⋄ ∇ ⍵,⍨+/2↑⍵}1
但在GNU APL中执行时会报错:
Illegal : in immediate execution+
无论在REPL直接运行还是从文件加载,都无法成功执行。需要适配出GNU APL的正确实现方式。
原因分析
原代码依赖两个Dyalog APL专属特性,而GNU APL未支持:
- **dfn的Guard分支语法(
:)**:Dyalog允许在匿名函数(dfn)中用条件:结果`的形式实现分支判断,这是GNU APL不兼容的语法。 - dfn内的递归调用(∇):Dyalog的dfn支持用
∇指代自身实现递归,GNU APL的匿名函数不支持该特性。
GNU APL的替代实现
GNU APL更贴近传统APL语法,可通过以下两种方式实现相同逻辑:
方式1:命名函数+传统分支跳转
先定义命名函数,用传统APL的→跳转实现条件判断,通过函数名自身完成递归:
∇ R ← FibUntilTen N →(10<⊃N)/EXIT ⍝ 若满足条件则跳转到EXIT标签 R ← ∇ N,⍨+/2↑N ⍝ 递归调用自身,生成下一项 →0 ⍝ 跳过EXIT段,返回结果 EXIT: R ← N ⍝ 满足终止条件时返回当前序列 ∇
调用函数:
FibUntilTen 1
执行后得到结果:1 1 2 3 5 8 13
方式2:迭代实现(避免递归)
如果不需要递归,也可以用循环替代,在REPL中直接执行即可:
N←1 :While 10≥⊃N N←N,⍨+/2↑N :EndWhile N
运行后同样生成目标序列:1 1 2 3 5 8 13
内容的提问来源于stack exchange,提问作者NeRoboto
相关产品推荐
相关产品推荐

