1 ;; The first three lines of this file were inserted by DrScheme. They record metadata
2 ;; about the language level of this file in a form that our tools can easily process.
3 #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")))))
4 (define INCHES->CM 2.54)
5 (define FEET->INCHES 12)
6 (define YARDS->FEET 3)
7 (define RODS->YARDS 5.5)
8 
9 ;; inches->cm : number -> number
10 ;; Converts inches to cm by multiplying by the conversion factor INCHES->CM
11 
12 (define (inches->cm inches)
13   (* inches INCHES->CM))
14 
15 ;; feet->inches : number -> number
16 ;; Converts feet to inches by multiplying by the conversion factor FEET->INCHES
17 
18 (define (feet->inches feet)
19   (* feet FEET->INCHES))
20 
21 ;; yards->feet : number -> number
22 ;; Converts yards to feet by multiplying by the conversion factor YARDS->FEET
23 
24 (define (yards->feet yards)
25   (* yards YARDS->FEET))
26 
27 ;; rods->yards : number -> number
28 ;; Converts rods to yards by multiplying by the conversion factor RODS->YARDS
29 
30 (define (rods->yards rods)
31   (* rods RODS->YARDS))