;; f: numero -> numero (define (f x) (/ 2 x)) ;; promosso?: numero -> bool ;; suppongo che x sia compreso tra 0 e 30 (define (promosso? x) (>= x 18)) ; test ; (promosso? 12) ; (promosso? 18) <- ; (promosso? 28) ; assoluto: numero -> numero (define (assoluto x) (cond [(> x 0) x] [(= x 0) 0] [(< x 0) (- x)])) (assoluto 5) ; 5 (assoluto 0) ; 0 (assoluto -27) ; 27 ; assoluto2: numero -> numero (define (assoluto2 x) (cond [(>= x 0) x] [else (- x)])) (assoluto2 5) ; 5 (assoluto2 0) ; 0 (assoluto2 -27) ; 27