Funciones Recursivas

;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de Agosto de 2020
;; Contrato: multiplicacion: numero, numero -> numero
;; Propósito: Esta función recibe dos numeros y los multiplica de manera recursiva
;; Ejemplos: (multiplicacion 2 3), retorna 6
;; (multiplicacion 2 5), retorna 10
;; Definición
(define (multiplicacion a b)
  (cond
    [ (or (not (number? a) ) (not (number? b) ) ) (error "A o B no son números. Intente de nuevo.") ]
    [(= b 1) a]
    [ else (+ a (multiplicacion a (- b 1) )) ]
    )
  )

;; Pruebas:
(check-expect (multiplicacion 2 3) 6)
(check-expect (multiplicacion 2 5) 10)


;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de Agosto de 2020
;; Contrato: elevar: numero, numero -> numero
;; Propósito: Esta función recibe dos numeros y eleva de manera recursiva
;; Ejemplos: (elevar 2 3), retorna 8
;; (elevar 2 5), retorna 32
;; Definición
(define (elevar a b)
  (cond
    [ (or (not (number? a) ) (not (number? b) ) ) (error "A o B no son números. Intente de nuevo.") ]
    [(= b 0) 1]
    [ else (* a (elevar a (- b 1) )) ]
    )
  )

;; Pruebas:
(check-expect (elevar 2 3) 8)
(check-expect (elevar 2 5) 32)