返回列表中值的方法？ （方案）

Question

我正在試圖製作一個名爲median的程序，它取得一個列表的中間值。如果列表是偶數，那麼我將返回兩個中間數字。我的頭腦中有所有想到的邏輯，但我不知道如何完成它。注：我試圖避免使用list-ref，因爲它會使問題微不足道。 到目前爲止，我的代碼如下所示。

(define (median lst) 
(if (null? lst) 
    '() 
    (if (even? lst) ; ends here 

現在，我對這個問題的方法是這樣的。

Odd #- Return the value of the "car#" that's in place of (/ (+ (length lst) 1) 2) 
3; 2nd car  (1 100 3) => 100 
5; 3rd car  (1 2 100 4 5) => 100 
7; 4th car  (1 2 3 100 5 6 7) => 100 
Even # - Return the value of the "car#" that's in place of (/ (length lst) 2) AND (+ (/ (length lst) 2) 1) 
2; 1st and 2nd car   (1 2) => 1 2 
4; 2nd and 3rd car   (1 20 30 4) => 20 30 

不過，我似乎無法拿出，可以遞歸實現這個僞代碼的方式。

編輯：不確定是否有人仍然在那裏願意幫助，但我最終編寫了一個迭代過程，將採取任何奇數列表的中值索引值。我現在的麻煩是實施東西，這將使該代碼工作的，甚至列表，也未嘗沒有在列表返回值：

(define (median-index-odd lst) 
    (define (median-index-iter1 lst times_carred) 
     (if (null? lst) 
      '() 
      (if (= times_carred (/ (+ (length lst) 1) 2)) 
       (list (car lst))    
       (median-index-iter1 (cdr lst) (+ 1 times_carred))))) 
       (median-index-iter1 lst 0)) 

我也想出了一個單獨的程序找到當名單是偶數時的中值指數：

(define (median-index-even lst) 
    (define (median-index-iter2 lst times_carred) 
     (if (null? lst) 
      '() 
      (if (= times_carred (/ (length lst) 2)) 
       (list (car lst) (cadr lst))    
       (median-index-iter2 (cdr lst) (+ 1 times_carred))))) 
       (median-index-iter2 lst 0)) 

Answer 1

似乎像功課。

直截了當的解決方案包括list-sort（rnrs/sorting），除非它已經排序，length以獲取列表長度，list-tail擺脫一半的名單和car爲奇，和偶數列表附加cadr。您使用let來處理中間值。

在某些代碼中進行編輯，即使您得到正確與否。對於後者，我們可以幫助你更多。

Answer 2

(define (median L) 
(if (null? L) 
    (error "No median of empty list") 
    (let loop ((L1 L) (L2 L)) 
     (cond ((null? (cdr L2)) (car L1)) 
      ((null? (cddr L2)) (list (car L1) (cadr L1))) 
      (else (loop (cdr L1) (cddr L2)))))) 

分裂成兩個列表取第一次一個，第二每次兩個