方案编程中不能定义这样的函数

问题描述

为什么我总是收到这个错误？？？

;不能定义名称;已经免费：ratio 代码

    (define (min-ratio list)          ;;Pivot row
        (let ((r-list (ratio list)))
          (last-element (cons 0 (iter 1 (car r-list) (r-list)))))
    
          (define (ratio list)
            (if (null? (cdr list)) '()
            (let ((row (car list)))
              (cons (/ (last-element row) (list-ref row pivot-column))
                (ratio (cdr list))))))
    
          (define (iter position value list)
            (if (null? (cdr list)) '()
            (if (negative? value)
                (iter (+ position 1) (cadr list) (cdr list))
                (if (or (negative? (cadr list)) (<= vlaue (cadr list)))
                (iter (+ position 1) value (cdr list))
                (cons position (iter (+ position 1) (cadr list) (cdr list))))))))

只有“ratio”函数可以正常工作，“iter”函数也可以正常工作，但 min-ratio 函数不行。 我收到错误，无法定义名称、比例，已经免费。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）