[SOLVED] CS代考程序代写 scheme (define (multiplyBy x)

(define (multiplyBy x)
(lambda(y) (* x y)))

(define double (multiplyBy 2))
(define triple (multiplyBy 3))

(double 2) ;=> 4
(triple 5) ;=> 15

;(define triple (multiplyBy 3))
;(lambda(y) (* 3 y))

;(triple 5)
;(* 3 5)
;15

(((lambda(a) (lambda(b c)(if (> (- b c) a) “pizza” “french fries”))) 5) 11 5)

(define (boxcar h a b)
(lambda(x)(if (and (>= x a)(<= x b)) h 0)))(define box1 (boxcar 10 3 7))(box1 5);(#%require plot) ;borrowed from racket (not scheme);(plot (function box1 0 20));(plot (function (boxcar 25 5 10) 0 20))(define (foo f)(lambda(x)(lambda(y)(lambda(z)(f x y z)))))(foo +)((foo +) 1)(((foo +) 1) 2)((((foo +) 1) 2) 3)(define (bar x y z)(- (* x y)z))(foo bar)((((foo bar) 3)4)5)(define (func a)((lambda(b) (lambda(c d)(-(* b c)d))) (+ a 3)))(func 1)(define closure (func 1))(closure 2 3)((func 1) 2 3)