;; The first three lines of this file were inserted by DrScheme. They record metadata
;; about the language level of this file in a form that our tools can easily process.
#reader(lib "htdp-beginner-reader.ss" "lang")((modname 3.3.1) (read-case-sensitive #t) (teachpacks ((lib "convert.ss" "teachpack" "htdp"))) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ((lib "convert.ss" "teachpack" "htdp")))))
(define INCHES->CM 2.54)
(define FEET->INCHES 12)
(define YARDS->FEET 3)
(define RODS->YARDS 5.5)

;; inches->cm : number -> number
;; Converts inches to cm by multiplying by the conversion factor INCHES->CM

(define (inches->cm inches)
  (* inches INCHES->CM))

;; feet->inches : number -> number
;; Converts feet to inches by multiplying by the conversion factor FEET->INCHES

(define (feet->inches feet)
  (* feet FEET->INCHES))

;; yards->feet : number -> number
;; Converts yards to feet by multiplying by the conversion factor YARDS->FEET

(define (yards->feet yards)
  (* yards YARDS->FEET))

;; rods->yards : number -> number
;; Converts rods to yards by multiplying by the conversion factor RODS->YARDS

(define (rods->yards rods)
  (* rods RODS->YARDS))