(2&*~) 15 7 3 1
以上是这句话.最后是追踪和最终结果.我明白这个短语是monad,我明白因为它有左右参数.如果您运行'15 7 3 1(2&*)15 7 3 1',则会发生相同的输出.我也得到了正确的表是2到1,3,7,15的幂,而其他条目是它们的基数乘以2的幂,但我只是不明白为什么.
在一个相关的说明中,这是一个来自Rosetta Code网站上的ethopian乘法的短语(实际上,这也是我试图弄清楚这一点)和'(1>.<.@ - :)^: a:'是这句话.
(1>.<.@-:)^:a: 27
27 13 6 3 1
但是(1>.<.@ - :) ^:27会返回一个自己的盒子版本,我希望它会运行27次.
在三个相关问题的最后,(这些都与分解道德繁殖代码有关),完整代码如下:
double =: 2&*
halve =: %&2 NB. or the primitive -:
odd =: 2&|
ethiop =: +/@(odd@] # (double~ <@#)) (1>.<.@halve)^:a:
这可以简单地替换为:
ethiop =: +/@(2&|@] # (2&*~ <@#)) (1>.<.@-:)^:a:
这很好!成功冲了过去,当我想到时,我完全脱离了悬崖,在命令行上有一个monadic double:
+: 98
196
并且双精度运算符必须比具有附加常量的双精度快,可能是双精度变换,所以我会这么认为
ethiop =: +/@(2&|@] # (+:~ <@#)) (1>.<.@-:)^:a:
会工作......但事实并非如此.
我已经尝试了大写字母,连词等等,没有任何东西能让它起作用,它总是说"域名错误".我开始认为代码依赖于被称为monad的二元组以一种我无法获得的方式创建双倍表.
唯一的好处是J动词奇数与测试奇数无关.
任何人都可以向我解释这些事情,也许有英文解释该程序如何工作？不是算法如何工作,它是如何实现算法的.我记得1970年我在玩IBM 1130 APL的时候.这是一个8k字的APL翻译,不用说,它是有限的.例如,它有一个滚动但没有交易.解释器自行进出内存,1130支持代码覆盖,它将子程序分成组,当一个组调用另一个组时,它将从磁盘加载新组(是的,在8k中进行伪交换).所以我编写了交易的版本,使用各种方案,并且随机地,我们会找到一个可以逐步进入和退出而不寻求的版本,无论用多少行编写多少以及有多少解释器操作将运行10次像其他任何一样快.我不知道我在做什么,我会继续添加ravels和毫无意义的任务,并在各行之间打破语句或将它们组合起来,直到我得到一个不用寻求的方式运行.(正在寻求的52 52交易可能需要45秒).
然后昨晚我在J.计算了第150,000个Fibonacci数字.它必须是64位版本,花了一个小时,17分钟.我使用了精确的算术,数字有31349位数,它开始1012838344936638038 ......我意识到1130可能永远不会计算出这个,这个数字不合适,因为你需要三个和最大的一个有32k …