#lang scheme

(define area-cuadrado
  (lambda (lado)
    (* lado lado) ))

(define area-rectangulo
  (lambda (base altura)
    (* base altura) ))

(define area-triangulo
  (lambda (base altura)
    (/ (* base altura) 2) ))

(define hipotenusa
  (lambda (a b)
    (sqrt (+ (expt a 2) (expt b 2))) ))

(define cuadrado-binomio
  (lambda (a b)
    (+ (expt a 2) (expt b 2) (* 2 a b)) ))

;;;; Aplicaciones

(area-cuadrado 5)

(area-rectangulo 5 3)

(area-triangulo 3 5)

(hipotenusa 3 3)

(cuadrado-binomio 6 7)
