Question

我正在尝试定义消耗列表的longestString函数（可能包含任何类型的元素）并返回最长的str

我有两个功能可以做到这一点，第一个获取任何类型的列表，并输出仅字符串列表第二个获取字符串列表并输出最长的字符串。现在，我遇到的问题是如何将这两个功能结合在一起使用。任何帮助将不胜感激

第一个功能：

( : sublist-numbers  : (Listof Any) -> (Listof String))
  (define (sublist-numbers l )
  ( : sublist-numbers-helper  : (Listof Any) (Listof String)-> (Listof String))
  (define (sublist-numbers-helper l r)
  (cond ((null? l) r)
        ((string? (first l)) (sublist-numbers-helper (rest l) (cons (first l) r )))
        (else (sublist-numbers-helper (rest l) r))))
 (sublist-numbers-helper l '()))

second function:
( : maxOf : (Listof String) -> String)
   (define (maxOf l)
        (cond
            ;((null? list) (error "empty list") )
            ((null? (rest l)) (first l))
            (else (cond
                    ((> (string-length(first l)) (string-length(maxOf (rest l)))) (first l))
                    (else (maxOf (rest l))))))))

输出应该是这样的：

（test（longestString'（34 uuu 90））=>否）（test（longestString'（uu 56 oooo“ r”“ rRR”“ TTT”）=>“ rRR”）

Answer 1

您的maxOf过程中有错误，还需要考虑空列表情况：

(define (maxOf l)
  (cond ((null? l) "") ; a string type is required
        ((null? (rest l))
         (first l))
        ((> (string-length (first l)) (string-length (maxOf (rest l))))
         (first l))
        (else (maxOf (rest l)))))

解决此问题后，longestString的实现很简单：您只需将maxOf和sublist-numbers组合在一起，并处理找不到最大元素的情况：

(define (longestString l)
  (let ((result (maxOf (sublist-numbers l))))
    (if (string=? result "")
        false
        result)))

它按预期工作：

(longestString '(34 uuu 90))
=> #f
(longestString '(uu 56 oooo "r" "rRR" "TTT"))
=> "rRR"

将两个递归合并为一个尾递归代码

1 个答案: