方案。尾递归？

Question

下面提到的伪代码有任何尾递归版本吗？谢谢 ！

(define (min list)
  (cond 
   ((null? list) '())
   ((null? (cdr list)) (car list))
   (#t (let ((a (car list))
             (b (min (cdr list))))
         (if (< b a) b a)))))

Answer 1

您应该阅读fold高阶函数< /a>.

Answer 2

定义一个辅助函数，它接受一个列表和迄今为止找到的最小元素（我们称之为 b）。如果列表为空，则应返回 b，否则如果列表头 (a) 小于 b，则应返回 (helper (cdr list) a)，否则 (助手（cdr 列表）b)。现在我们可以将 (min list) 定义为 (helper (cdr list) (car list))。

Answer 3

 (define (min list)
  (let imin ((l (cdr list))
         (m (car list)))
    (cond
     ((null? l) m)
     (else
      (let ((a (car l)))
        (imin (cdr l)
              (if (< a m) a m)))))))

Answer 4

(define (min ns)
  (let loop ( (ns-left ns) (min-so-far maxint) )
    (if (null? ns-left)
      min-so-far
      (loop
        (cdr ns-left)
        (if (< (car ns-left) min-so-far)
          (car ns-left)
          min-so-far )))))

Answer 5

(define (min list)
   (min-helper list #f))

(define (min-helper list min-so-far)
   (if (null? list) 
       min-so-far
       (let ((m (car list)))
            (if (eq? min-so-far #f)
                (set! min-so-far m))
            (if (< m min-so-far)
                (min-helper (cdr list) m)
                (min-helper (cdr list) min-so-far)))))