simply scheme 第四章 练习
4.1 (+ 8 (* 2 12))
4.2 A->(B +)->(C *)
4.4 (1) two return values
(2) wrong expression
(3) no argument
(4) less argument
(5) incorrect argument
4.5 (define (ftoc f)
(* (/ 5 9)(- f 32)))
(define (ctof c)
(+ 32 (* c (/ 9 5))))
4.6 (define (fourth x)
(* x x x x))
(define (fourth x)
(square (square x)))
4.7 (define (abs x)
(square (square x)))
4.8 (define (scientific x y)
(* x (expt 10 y)))
(define (sci-e x)
{floor (+ 0.5 (/ (log x) (log 10)))})
(define (sci-c m)
{/ m (expt 10 (sci-e m))})
(define (tip fee)
{- (ceiling (* 1.15 fee)) fee})
4.9 (define (discount x y)
{* x (- 1 (/ y 100))})
4.10 (define (tip fee)
{- (ceiling (* 1.15 fee)) fee})