如何缩放列表中最大值为 1 且最小值为 0 的所有值的值

Question

我正在尝试缩放列表中的所有值，其中最大值为 1，最小值为 0。这是我尝试完成的示例

(check-expect (squash (list 100 90 70 20)) (list 1 0.875 0.625 0)).

如您所见，最大值为 100，因此缩放值为 1，最小值为 20 被缩小为 0。

为了缩小所有这些值，我正在执行计算 Z=(Li - (smallest-val)) / ((largest-val) - (smallest-val))

其中 Li 是列表中的所有值 (L1, L2, L3 ...)

这是我目前的代码

(define (squash L)
  (local
    [
     ;;(largest-val M) returns the largest value M in L
     ;;(largest-val: (listof Num) -> Num
     (define (largest-val M) (foldr max (first M) (rest M)))

     ;;(smallest-val x) returns the smallest value x in L
     ;;(smallest-val: (listof Num) -> Num
     (define (smallest-val x) (foldr min (first x) (rest x)))
     ]
    (cond
      [(empty? L)'()]
      [else (cons (/ (- (first L) smallest-val) (- largest-val smallest-val))
                   (squash (rest L)))])))

这是我遇到的错误

:: -: 需要一个数字作为第二个参数，给定 (lambda (a1) ...)

我不确定如何修复此代码以使我的程序正常运行

我想使用命令式编程范例来保留我的解决方案，因此我希望我的答案保持与现在相同的格式。

Answer 1

在local 内部，您将largest-val 和smallest-val 定义为过程，但在squash 的实际主体中，您没有调用他们，而不是你使用它们，就好像它们是数字一样；这就是-: expects a number as 2nd argument, given (lambda (a1) ...) 错误的含义。

不过，还有一个更严重的问题。您似乎打算在每次迭代时计算最小值和最大值，但这会产生不正确的结果。您必须只计算这些值一次 - 如果我们定义一个帮助程序会更容易，如下所示：

(define (squash L)
  (squash-helper L (apply min L) (apply max L)))

(define (squash-helper L minL maxL)
  (cond [(empty? L) '()]
        [else (cons (exact->inexact (/ (- (first L) minL) (- maxL minL)))
                    (squash-helper (rest L) minL maxL))]))

我使用exact->inexact 来去除分数，还有一种更简单的方法可以使用apply 以及min 和max 来查找列表的最小值和最大值。现在程序按预期工作：

(squash (list 100 90 70 20))
=> '(1.0 0.875 0.625 0.0)

Answer 2

这是你的函数的一个变体：

(define (squash L)
  (local
    [
     ;;(largest-val M) returns the largest value M in L
     ;;(largest-val: (listof Num) -> Num
     (define (largest-val M) (foldr max (first M) (rest M)))

     ;;(smallest-val x) returns the smallest value x in L
     ;;(smallest-val: (listof Num) -> Num
     (define (smallest-val x) (foldr min (first x) (rest x)))
     (define (scale x)
       (/ (- x                 (smallest-val L))
          (- (largest-val  L)  (smallest-val L))))]
    (map scale L)))

函数map 将函数scale 应用于列表L 的每个元素，并返回一个包含所有结果的新列表。