please help in 'todo' part to write the method in racket or Scheme Thanks!!

all method solve

#lang racket (provide rect rect? rect-area rect-intersect rect-list-intersect all-sub-rectangles) ; any two opposing corners of a grid-aligned rectangle as pairs (x0,y), (x1, y1) (rect , lower-left-x , lower-left-y , upper-right-x , upper-right-y) (define (rect xo yo x1 y1) ; return a normalized rect-tagged s-expr representation of the rectangle (rect , (min xo x1), (min yo y1) , (max xo x1), (max yo yi)) ; Predicate defining a rectangle (define (rect? r) (match r ['(rect ,0 ,yo ,x1 ,y1) (and (andmap integer? '(,x0 ,x1 ,y ,y1)) ( (set) ; E.g., (all-sub-rectangles (rect 0 0 1 1)) => (set '(rect 0 0 1 1)) ; E.g., (all--sub-rectangles (rect 10 5 11 7)) => (set '(rect 10 5 11 7) '(rect 10 5 11 6) '(rect 10 6 11 7)) ; Hint: can you solve this using the 'foldl' and 'range' functions? (define (all-sub-rectangles r) 'todo) 48 49 #lang racket (provide rect rect? rect-area rect-intersect rect-list-intersect all-sub-rectangles) ; any two opposing corners of a grid-aligned rectangle as pairs (x0,y), (x1, y1) (rect , lower-left-x , lower-left-y , upper-right-x , upper-right-y) (define (rect xo yo x1 y1) ; return a normalized rect-tagged s-expr representation of the rectangle (rect , (min xo x1), (min yo y1) , (max xo x1), (max yo yi)) ; Predicate defining a rectangle (define (rect? r) (match r ['(rect ,0 ,yo ,x1 ,y1) (and (andmap integer? '(,x0 ,x1 ,y ,y1)) ( (set) ; E.g., (all-sub-rectangles (rect 0 0 1 1)) => (set '(rect 0 0 1 1)) ; E.g., (all--sub-rectangles (rect 10 5 11 7)) => (set '(rect 10 5 11 7) '(rect 10 5 11 6) '(rect 10 6 11 7)) ; Hint: can you solve this using the 'foldl' and 'range' functions? (define (all-sub-rectangles r) 'todo) 48 49