lambda - 是否可以在不使用 lambda 的情况下将本地过程绑定(bind)到 letrec 中的变量？

Question

我是计划的初学者。我曾经在使用 letrec 和使用 lambda 绑定(bind)时执行过类似的程序。

(define (drop l n)
  (letrec ((iter (lambda(ls x)
  (cond ((null? ls) ls)
        ((> x 1) (cons (car ls) (iter (cdr ls) (- x 1))))
        (else (iter (cdr ls) n)))))) (iter l n)))

(define factorial
  (lambda (n)
    (letrec ((iter
              (lambda (product counter)
                (if (> counter n)
                    product
                    (iter (* counter product)
                          (+ counter 1))))))
      (iter 1 1)))

但我最近发现我们学院的估值机构不允许使用结构“lambda”。无论如何，是否可以在不使用 lambda 的情况下完成类似的问题？请提出任何其他替代方案。

Answer 1

让我们检查一些变体(全部在 Racket 中)。

首先是你的原创:

#lang racket
(define factorial
  (lambda (n)
    (letrec ((iter
              (lambda (product counter)
                (if (> counter n)
                    product
                    (iter (* counter product)
                          (+ counter 1))))))
      (iter 1 1))))

(factorial 5)

第一个 lambda 很容易隐藏:

(define (factorial2 n)
    (letrec ((iter
              (lambda (product counter)
                (if (> counter n)
                    product
                    (iter (* counter product)
                          (+ counter 1))))))
      (iter 1 1)))

(factorial2 5)

内部定义和letrec是等价的:

(define (factorial3 n)
  (define (iter product counter)
    (if (> counter n)
        product
        (iter (* counter product)
              (+ counter 1))))
  (iter 1 1))

(factorial3 5)

如果您使用一种教学语言(对于 HtDP)，内部定义称为本地定义 - 您将不得不使用 local 结构:

(define (factorial4 n)
  (local [(define (iter product counter)
            (if (> counter n)
                product
                (iter (* counter product)
                      (+ counter 1))))]
    (iter 1 1)))

(factorial4 5)