这道习题比较简单,直接上代码
#lang racket
(define (cube x) (* x x x))
(define (square x) (* x x))
(define (inc x) (+ 1 x))
(
define (compose f g)
(lambda (x)
(f (g x))))
((compose square inc) 6)
((compose cube inc) 7)
运行结果
49
512
这道习题比较简单,直接上代码
#lang racket
(define (cube x) (* x x x))
(define (square x) (* x x))
(define (inc x) (+ 1 x))
(
define (compose f g)
(lambda (x)
(f (g x))))
((compose square inc) 6)
((compose cube inc) 7)
运行结果
49
512