APL / APLX：在 for 循环中使用 if 语句时出现值错误

Question

我正在尝试在 APLX 中实现快速排序，但我似乎无法修复从语句 :If((ITEM COMPARE PIVOT)≤0) 中不断收到的这个值错误。经过一些测试，我认为问题在于我在 For 循环中使用了 If 语句，但我不知道为什么会出现问题。这是整个函数（或者更确切地说是运算符），以防万一问题出在其他地方：

（注意，COMPARE 是我传递给快速排序的比较器函数）

(COMPARE QSORT)ARRAY
⍝ If the array has a size of 1
⍝ or less, return
:If (⍴ARRAY) ≤ 1
  ARRAY
:endif
⍝ set pivot to last element in array
PIVOTINDEX ← ⍴ARRAY
PIVOT ← PIVOTINDEX⌷ARRAY
⍝ remove pivot from array by assigning
⍝ array to all elements up to pivot index
ARRAY ← (PIVOTINDEX-1)↑ARRAY
⍝ Make empty vectors for values greater
⍝ than and less than the pivot
LESSER ← ⍳0
GREATER ← ⍳0
⍝ loop over ARRAY, place items in GREATER
⍝ or LESSER where appropriate
:For ITEM :In ARRAY
  :If((ITEM COMPARE PIVOT)≤0)
    LESSER ← LESSER,ITEM
  :Else
    GREATER ← GREATER,ITEM
  :EndIf
:EndFor
SORTED ← SORTED,(COMPARE QSORT LESSER)
SORTED ← SORTED,PIVOT
SORTED ← SORTED,(COMPARE QSORT GREATER)
SORTED

Answer 1

嗯，恐怕我对 APLX 不熟悉，但不管怎样，这里是我的 0.02 美元：

1. 你知道⍋吗？所以我认为这是一个教育练习...... ;-)
2. 控制结构没有问题，但是您的COMPARE -fn 不会返回结果，因此当您尝试使用结果时（通过引用COMPARE），会产生错误。函数头应该是∇ RESULT←(COMPARE QSORT)ARRAY（会话输出不被认为是“function-result” - 这需要明确分配！）
3. 另请注意，将变量名称本地化是一种很好的做法。