从给定列表中找到Collat​​z序列的最大值

Question

我是方案语法的新手。 这是我一直在努力的项目的最后一部分。 我能够从给出的Collat​​z序列中找到最大值，但该项目的这一部分需要从多个Collat​​z序列列表中找到最大长度。 例如，给出这个列表：'（（1 10）（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处理了第一个元素，现在你只需要处理剩下的元素。你显然已经知道如何实现这一点，因为你已经完成了。