(define (pitagore a b)
(let ((a2 (* a a)) (b2 (* b b)))
(sqrt (+ a2 b2))))
(define (divisibleBy? number divisor)
(= (remainder number divisor) 0))
; kiem tra 1 nam co nhua hay ko
( ...
↧