-BEGIN PGP SIGNED MESSAGE-
Hash: SHA1
On 30-11-11 13:11, frank weytjens wrote:
> (define H 300) (define L 300) (define-struct cirkel (posn number
> color)) (define cirkel1 (make-cirkel(make-posn (/ H 2) (/ L 2)) (/
> L 4) 'red)) ;; fun-for-circle: circle --> ? ;;(define
> (fun-for-circle c
On Nov 30, 2011, at 7:11 AM, frank weytjens wrote:
> (define (in-circle? C pos)
> (> (cirkel-number C) (distance-to-center C pos)))
If a math teacher asked you to determine whether a point was (strictly) within
a circle, he'd write
|p - c| < r
Somewhere else he'd define
(define H 300)
(define L 300)
(define-struct cirkel (posn number color))
(define cirkel1 (make-cirkel(make-posn (/ H 2) (/ L 2)) (/ L 4) 'red))
;; fun-for-circle: circle --> ?
;;(define (fun-for-circle circle) ...)
;;(define (fun-for-circle c)
;;(draw-solid-disk (cirkel-posn c)(cirkel-number c) (ci
3 matches
Mail list logo
