;; areacerchio: numero -> numero (define (areacerchio r) (local ((define pigreco 3.14)) (* r r pigreco))) ;(local ; ((define x 1) ; (define y 2)) ; (+ x y)) ;(define (f x) (+ 1 x)) ; ;(local ; ((define (f x) (- x 1)) ; (define c 3)) ; (f c)) ;; cutoff: numero numero -> numero (define (cutoff x y) (local ((define diffxy (- x y))) (cond [(>= diffxy 0) diffxy] [else 0]))) ;(+ (cutoff 3 5) (cutoff 4 1)) ;(define x 5) ; ;(define (f x) ; (+ x x)) ; ;(local ; ((define x 3)) ; (+ x 1)) ; ;(+ 3 x) ;(define (f y) ; (+ x y)) ; ;(define x 3) ; ;(define (g x) (f x)) ; ;(g 1) ;(define x 5) ; ;(+ (local ; ((define x 3)) ; (+ x 1)) ; x) (define x 5) (define x (+ 3 x))