lambda表达式

f(x,y) = x (1 + xy)^2 + y(1-y)+(1+xy)(1-y)

(define (f x y)
  ((lambda (a b)
     (+ (* x (square a))
        (* y b)
        (* a b)))
   (+ 1 (* x y))
   (- 1 y)))

也可以用let创建局部变量来搞定

(define (f x y)
  (let ((a (+ 1 (* x y)))
        (b (- 1 y)))
    (+ (* x (square a))
       (* y b)
       (* a b))))