從給出的列表中找到Collat​​z序列的最大值

Question

我是新的方案語法。 這是我一直在研究的項目的最後一部分。 我能夠從給定的Collat​​z序列中找到最大值，但項目的這部分需要從多個Collat​​z序列列表中找到最大長度。 因此，例如給出這個清單：'（（110）（10 200）（201 210）（900 1000），輸出應該是這樣的：'（20 125 89 174） 我需要找到數字1到10，然後從10到200 ETS 這裏是我的代碼：

#lang racket 
; Part I 
(define (sequence n) 
    (cond [(= n 1) 
     (list n)] 
    [(even? n) 
    (cons n(sequence(/ n 2)))] 
    [(odd? n) 
    (cons n(sequence (+(* n 3) 1))) ])) 

(sequence 10) 

; Part II 
(define (find-length items) 
    (if (null? items)   
    (list)     
    (cons     
    (length (sequence(car items)))   
    (find-length (rest items)))) 
    ) 
(find-length (list 10 16 22 90 123 169)) 


;Part III 
(define max-in-list (lambda (ls) 
(let ((head (car ls)) (tail (cdr ls))) 
    (if (null? tail) 
    ; list contains only one item, return it 
    head 
    ; else find largest item in tail 
    (let ((max-in-tail (max-in-list tail))) 
     ; return the larger of 'head' and 'max-in-tail' 
     (if (> head max-in-tail) 
     head 
     max-in-tail 
    ) 
    ) 
) 
) 
)) 

(define (find-max i j) 
(if (= i j) 
    (list) 
    (cons 
    (max-in-list (find-length(sequence i))) 
    (find-max (+ 1 i) j) 
)) 
) 
(max-in-list(find-max 1 10)) 

(define (max-length-list items) 
    (if (null? items) 
    (list) 

    (cons 
    (find-max ? ?)) ; how i can call this function ? 
    (max-length-list (?)) ; how i can call this function ? 
))) 

(max-length-list '((1 10) (10 200) (201 210) (900 1000))) 

Answer 1

在傳遞給max-length-list列表中的每個項目是兩個數字和一個nil，如(cons 1 (cons 2 '()))列表
的第一個數字是(car (car items))。
第二個是(car (cdr (car items)))。

或者，如果您let ((head (car items))，那麼它們是(car head)和(car (cdr head))。

遞歸調用是微不足道的;你已經處理了第一個元素find-max，現在你只需要處理其餘的元素。你顯然已經知道如何做到這一點，因爲你已經做到了。