1 12687dd9 2023-08-04 jrmu ;; The first three lines of this file were inserted by DrScheme. They record metadata
 2 12687dd9 2023-08-04 jrmu ;; about the language level of this file in a form that our tools can easily process.
 3 12687dd9 2023-08-04 jrmu #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 12687dd9 2023-08-04 jrmu (define INCHES->CM 2.54)
 5 12687dd9 2023-08-04 jrmu (define FEET->INCHES 12)
 6 12687dd9 2023-08-04 jrmu (define YARDS->FEET 3)
 7 12687dd9 2023-08-04 jrmu (define RODS->YARDS 5.5)
 8 12687dd9 2023-08-04 jrmu (define FURLONGS->RODS 40)
 9 12687dd9 2023-08-04 jrmu (define MILES->FURLONGS 8)
10 12687dd9 2023-08-04 jrmu 
11 12687dd9 2023-08-04 jrmu ;; inches->cm : number -> number
12 12687dd9 2023-08-04 jrmu ;; Converts inches to cm by multiplying by the conversion factor INCHES->CM
13 12687dd9 2023-08-04 jrmu 
14 12687dd9 2023-08-04 jrmu (define (inches->cm inches)
15 12687dd9 2023-08-04 jrmu   (* inches INCHES->CM))
16 12687dd9 2023-08-04 jrmu 
17 12687dd9 2023-08-04 jrmu ;; feet->inches : number -> number
18 12687dd9 2023-08-04 jrmu ;; Converts feet to inches by multiplying by the conversion factor FEET->INCHES
19 12687dd9 2023-08-04 jrmu 
20 12687dd9 2023-08-04 jrmu (define (feet->inches feet)
21 12687dd9 2023-08-04 jrmu   (* feet FEET->INCHES))
22 12687dd9 2023-08-04 jrmu 
23 12687dd9 2023-08-04 jrmu ;; yards->feet : number -> number
24 12687dd9 2023-08-04 jrmu ;; Converts yards to feet by multiplying by the conversion factor YARDS->FEET
25 12687dd9 2023-08-04 jrmu 
26 12687dd9 2023-08-04 jrmu (define (yards->feet yards)
27 12687dd9 2023-08-04 jrmu   (* yards YARDS->FEET))
28 12687dd9 2023-08-04 jrmu 
29 12687dd9 2023-08-04 jrmu ;; rods->yards : number -> number
30 12687dd9 2023-08-04 jrmu ;; Converts rods to yards by multiplying by the conversion factor RODS->YARDS
31 12687dd9 2023-08-04 jrmu 
32 12687dd9 2023-08-04 jrmu (define (rods->yards rods)
33 12687dd9 2023-08-04 jrmu   (* rods RODS->YARDS))
34 12687dd9 2023-08-04 jrmu 
35 12687dd9 2023-08-04 jrmu ;; furlongs->rods : number -> number
36 12687dd9 2023-08-04 jrmu 
37 12687dd9 2023-08-04 jrmu (define (furlongs->rods furlongs)
38 12687dd9 2023-08-04 jrmu   (* furlongs FURLONGS->RODS))
39 12687dd9 2023-08-04 jrmu 
40 12687dd9 2023-08-04 jrmu ;; miles->furlongs : number -> number
41 12687dd9 2023-08-04 jrmu 
42 12687dd9 2023-08-04 jrmu (define (miles->furlongs miles)
43 12687dd9 2023-08-04 jrmu   (* miles MILES->FURLONGS))
44 12687dd9 2023-08-04 jrmu 
45 12687dd9 2023-08-04 jrmu ;; feet->cm : number -> number
46 12687dd9 2023-08-04 jrmu ;; Converts feet to cm by first converting to inches
47 12687dd9 2023-08-04 jrmu 
48 12687dd9 2023-08-04 jrmu (define (feet->cm feet)
49 12687dd9 2023-08-04 jrmu   (inches->cm (feet->inches feet)))
50 12687dd9 2023-08-04 jrmu 
51 12687dd9 2023-08-04 jrmu ;; yards->cm : number -> number
52 12687dd9 2023-08-04 jrmu ;; Converts yards to cm by first converting to feet
53 12687dd9 2023-08-04 jrmu 
54 12687dd9 2023-08-04 jrmu (define (yards->cm yards)
55 12687dd9 2023-08-04 jrmu   (feet->cm (yards->feet yards)))
56 12687dd9 2023-08-04 jrmu 
57 12687dd9 2023-08-04 jrmu ;; rods->inches : number -> number
58 12687dd9 2023-08-04 jrmu ;; Converts rods to inches by first converting to yards, then converting to feet, then converting to inches
59 12687dd9 2023-08-04 jrmu 
60 12687dd9 2023-08-04 jrmu (define (rods->inches rods)
61 12687dd9 2023-08-04 jrmu   (feet->inches
62 12687dd9 2023-08-04 jrmu    (yards->feet
63 12687dd9 2023-08-04 jrmu     (rods->yards rods))))
64 12687dd9 2023-08-04 jrmu 
65 12687dd9 2023-08-04 jrmu ;; miles->feet: number -> number
66 12687dd9 2023-08-04 jrmu ;; Converts miles to feet by first converting to furlongs, then to rods, then to yards, then to feet
67 12687dd9 2023-08-04 jrmu 
68 12687dd9 2023-08-04 jrmu (define (miles->feet miles)
69 12687dd9 2023-08-04 jrmu   (yards->feet
70 12687dd9 2023-08-04 jrmu    (rods->yards
71 12687dd9 2023-08-04 jrmu     (furlongs->rods
72 12687dd9 2023-08-04 jrmu      (miles->furlongs miles)))))