;Autores: Daniel Felipe Casallas Ortiz
;Fecha: 8/Agosto/20
;Contrato: multiplicacion: numero numero -> numero
;Descripcion:Recibe dos numeros que se evaluan entre ellos
;EJEMPLOS:
(define (multiplicacion a b)
  (cond
    [(not (and (number? a)(number? b)))(error "La entrada debe ser un numero")]
    [(= b 1) a] ;caso base
    [else (+ a (multiplicacion a (- b 1)))]
    )
  )

(multiplicacion 2 5)

;Autores: Daniel Felipe Casallas Ortiz
;Fecha: 8/Agosto/20
;Contrato: elevar: numero numero -> numero
;Descripcion:Recibe dos numeros que se evaluan entre ellos
;EJEMPLOS:
(define (elevar a b)
  (cond
    [(not (and (number? a)(number? b)))(error "La entrada debe ser un numero")]
    [(= b 0) 1] ;caso base
    [else (* a (elevar a (- b 1)))]
    )
  )

(elevar 2 3)