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-intermediate-lambda-reader.ss" "lang")((modname |26.3|) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "gui.ss" "teachpack" "htdp")))))
4 ;gcd-structural : N[>=1] N[>=1] -> N
5 ;Determine the greatest common divisor between n and m by testing every number between 1 and (min m n), starting at (min m n).
6 
7 (define (gcd-structural m n)
8   (check-divisible (min m n)))
9 
10 ;check-divisible : N[>=1] -> N
11 Given x, check to see if m and n are divisible by x.  m and n are passed into check-divisible by a binding variable outside of check-divisible.
12 
13 (define (check-divisible x)
14   (cond
15     [(= x 1) 1]
16     []))