formatting - 如何格式化数字向量和字符串向量？ (Dyalog APL)

Question

我学习 APL 才几周，但我真的很喜欢。我尝试编写简单的函数来练习我学到的东西。这个告诉我如果我每个月从 T 的初始资本中提取 W，接下来的 13 个月我还剩下多少钱。

 R←T Money W
 M←1 2 3 4 5 6 7 8 9 10 11 12 13
 Months←'Nov' 'Dec' 'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov'
 P←-/T(M×W)
 R←Months,P

这给出了两个正确的数字，但我无法像这样格式化它们

Nov....100,000
Dec.....97,000
Jan.....92,000
        ...

我该怎么做？ Thorn 不起作用，因为它只适用于数字。

类似的，

R←13 2 ⍴ Months,P

也不行:

 Nov  Dec                                                                           
 Jan  Feb                                                                           
 Mar  Apr                                                                           
 May  Jun                                                                           
 Jul  Aug                                                                           
 Sep  Oct                                                                           
 Nov  97000 94000 91000 88000 85000 82000 79000 76000 73000 70000 67000 64000 61000 
 Nov  Dec                                                                           
 Jan  Feb                                                                           
 Mar  Apr                                                                           
 May  Jun                                                                           
 Jul  Aug                                                                           
 Sep  Oct     

Answer 1

你应该在缩减后公开 (⊃) P:P←⊃-/T(M×W) 或者使用更简单的P←T-M× W

按照 MBaas 在他的回答中所说的格式化数字:'CF12.2'⎕fmt P 或不带小数部分:'CI11'⎕fmt P

如果您将 (↑) 月份名称混合为 12×3 字符矩阵，则在左侧将它们连接起来 (,) 会更容易:(↑Months),'CI11'⎕fmt P

用点替换空格:'.'@{⍵=' '}

请注意，这里 11 月的结果最终为 97000，而不是 100000，但这应该很容易解决。

∇R←T Money W
 M←1 2 3 4 5 6 7 8 9 10 11 12 13
 Months←'Nov' 'Dec' 'Jan' 'Feb' 'Mar' 'Apr' 'May' 'Jun' 'Jul' 'Aug' 'Sep' 'Oct' 'Nov'
 P←T-M×W
 R←(↑Months),'.'@{' '=⍵}'CI11'⎕fmt P
∇

Try it online!