Thursday, 04 May 2006

• (define a 2.54)
  (define b 12)
  (define c 3)
  (define d 5.5)
  (define f 40)
  (define g 8)
  (define (inch-cm x)
    (* x a))
  (define (feet-inch x)
    (* x b))
  (define (yards-feet x)
    (* x c))
  (define (rods-yards x)
    (* d x))
  (define (furlong-yards x)
    (* x f))
  (define (miles-furlongs x)
    (* g x))
  (define(feet-cm x)
    (* (feet-inch x) (inch-cm x)))
  (define (yards-cm x)
    (* c (feet-cm x)))
  (define (rods-inch x)
    (* (rods-yards x) (yards-feet x) (feet-inch x)))
  (define (miles-feet x)
    (* (miles-furlongs x) (rods-yards x) (yards-feet x)))

  • 3:14 PM
  • 1 View
  • 0 eProps
  • 0 Comments