用ADL语言写出快速排序非递归算法

以下是使用ADL语言编写的快速排序非递归算法：

algorithm quicksort_nonrecursive(array)
  stack = create_stack()
  push(stack, 0, length(array) - 1) // 将整个数组的左右端点压入栈中

  while not is_empty(stack)
    left, right = pop(stack) // 弹出栈顶的左右端点
    if left >= right then continue // 如果左右端点相等或左端点大于右端点则跳过

    pivot = partition(array, left, right) // 对[left, right]区间进行划分，并返回中轴元素的下标

    // 将左右子区间的左右端点压入栈中
    push(stack, left, pivot - 1)
    push(stack, pivot + 1, right)

function partition(array, left, right)
  pivot = array[right] // 选择最右边的元素作为中轴元素
  i = left - 1

  for j = left to right - 1
    if array[j] <= pivot then
      i = i + 1
      swap(array[i], array[j])

  swap(array[i + 1], array[right])

  return i + 1

该算法使用一个栈来存储待排序子区间的左右端点，每次弹出栈顶的左右端点进行划分操作，并将左右子区间的左右端点压入栈中，直到栈为空为止。划分操作使用最右边的元素作为中轴元素，将小于等于中轴元素的元素移到左边，大于中轴元素的元素移到右边。最后返回中轴元素的下标。