使用记忆化计算组合 nCk 的方案

Question

我正在尝试计算 nCk 在 Racket /方案中使用内存的组合

我不能使用单独的递归方法来计算 n!。我已经做到了这一点，但说这是错误的语法我实际上修复了错误的句法错误!但仍然在 (let ([ans (assoc (x y) memo part!.有人知道我做错了什么吗？

 (define combm
  (letrec ([memo null]
           [f (lambda (x y)
                (let ([ans (assoc (x y) memo)])
                  (if ans
                      (cdr ans)
                      (let ([new-ans (letrec ([fac (lambda (x)
                                      (if (eq? x 0)
                                          1
                                          (* x (fac (- x 1)))))])
                        (/ (fac x) (* (fac y) (fac (- x y)))))])
                        (begin
                          (set! memo (cons (cons (x y) new-ans) memo))
                          new-ans)))))])
    f))

                                     `

Answer 1

这个表达式 (assoc (x y) memo) 是错误的原因。

如果你像(combm 42 43)那样应用combm，那么(assoc (x y) memo)就变成了(关联(42 43)备忘录)。 (42 43) 表示“将值 42 应用于 43”。问题是 42 不是函数。

改为尝试 (assoc (list x y) memo)。