;; 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 15.5.1) (read-case-sensitive #t) (teachpacks ((lib "testing.ss" "teachpack" "htdp"))) (htdp-settings #8(#t constructor repeating-decimal #f #t none #f ((lib "testing.ss" "teachpack" "htdp")))))
; Worked exercise 15.5.1
; diagonal-point : number -> posn
(define (diagonal-point coord)
  ; coord a number 3.7
  ; right answer a posn (make-posn 3.7 3.7)
  (make-posn coord coord)
  )
(check-expect (diagonal-point 0) (make-posn 0 0))
(check-expect (diagonal-point 3.7) (make-posn 3.7 3.7))
(generate-report)