scheme - 方案 - 应用程序：不是程序错误

Question

我正在编写方案中的函数，但出现“应用程序：不是过程；预期可以应用于参数的过程”错误。我假设我没有正确使用条件语句：

(define find-allocations
  (lambda (n l)
    (if (null? l)
        '()
        (cons ((if (<=(get-property (car l) 'capacity) n)
               (cons (car l) (find-allocations (- n (get-property (car l) 'capacity)) (cdr l)))
               '()))
          (if (<=(get-property (car l) 'capacity) n)
              (cons (car l) (find-allocations (n (cdr l))))
              '())))))

如果有人能指出我的错误，那将不胜感激。

Answer 1

尝试这个：

(define find-allocations
  (lambda (n l)
    (if (null? l)
        '()
        (cons (if (<= (get-property (car l) 'capacity) n)
                  (cons (car l) (find-allocations (- n (get-property (car l) 'capacity)) (cdr l)))
                  '())
              (if (<= (get-property (car l) 'capacity) n)
                  (cons (car l) (find-allocations n (cdr l)))
                  '())))))

学习Scheme时一个很常见的错误：写不必要的括号！请记住：在Scheme中，一对()意味着函数应用程序，所以当你写一些东西时——像这样的任何东西：(f)，Scheme会尝试f像一个过程一样应用，在你的代码中你有几个地方发生了这种情况：

((if (<=(get-property (car l) 'capacity) n) ; see the extra, wrong ( at the beginning

(find-allocations (n (cdr l)))) ; n is not a function, that ( is also mistaken