13 lines
374 B
Racket
13 lines
374 B
Racket
#lang racket/base
|
|
(provide rectangles-intersect?)
|
|
|
|
(define (rectangles-intersect? l1 t1 r1 b1 l2 t2 r2 b2)
|
|
(or (point-in-rectangle? l1 t1 l2 t2 r2 b2)
|
|
(point-in-rectangle? r1 t1 l2 t2 r2 b2)
|
|
(point-in-rectangle? l1 b1 l2 t2 r2 b2)
|
|
(point-in-rectangle? r1 b1 l2 t2 r2 b2)))
|
|
|
|
(define (point-in-rectangle? x y l t r b)
|
|
(and (<= l x r)
|
|
(<= t y b)))
|