仅按方案按降序排列数字

Question

我想写一个函数，只保留降序号，去掉升序号。

例如： (descending '(6 5 3 1 2 8)) 应该给我(6 5 3 1)。

谢谢。

Answer 1

列表是将对象绑定到列表的结果。或者一个空列表。

什么是consing？这是一个内置操作。

(define (plain-cons x xs)
  (cond
    ((null? xs) (list x))
    (else (cons x xs))))    ; using the built-in

降序列表是 descend 的结果 - 将一个对象添加到 descend 列表中。或者一个空列表。

什么是下降-consing？它是一个 consing，结果列表也是递减的：

; (descend-cons 3 '())      -> (list 3)
; (descend-cons 8 '(7 3))   -> (cons 8 '(7 3))
; (descend-cons 5 '(8 7 3)) -> (descend-cons 5 '(7 3))

(define (descend-cons x xs)
  (cond
    ((null? xs) (list x))
    (else
       (let ((a (car xs)))
         (cond
           ((>= x a)      ; { 8 '(7 3)) } -> '(8 7 3)
              .... )
           (else          ; { 5 '(8 7 3)) } -> { 5 '(7 3) }
             (.... x 
                   (cdr xs))))))))

有了这个，任务就很简单了。我们将编写函数descending 将列表转换为降序列表，就像

; (descending '())           ->  '()
; (descending '(x y z ...))  ->  (descend-cons x (..... '(y z ...)))

(define (descending lst)
  (cond
    ((null? lst) lst)
    (else
      (let ((x (car lst))
            (xs (cdr lst)))
        (...... x
                (...... xs))))))

descend-cons 期望的第二个参数是什么？它必须是一个降序列表。

我们可以从列表'(y z ...) 中创建一个降序列表吗？我们的武器库中有什么功能可以为我们做到这一点？