Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun rect-perimeter (rect)

2 665c255d 2023-08-04 jrmu   (+ (* 2 (rect-width rect))

3 665c255d 2023-08-04 jrmu      (* 2 (rect-height rect))))

4 665c255d 2023-08-04 jrmu (defun rect-area (rect)

5 665c255d 2023-08-04 jrmu   (* (rect-width rect)

6 665c255d 2023-08-04 jrmu      (rect-height rect)))

7 665c255d 2023-08-04 jrmu