Asistente de cálculo "El Ahorrito"

#lang racket


(define (ayuda)
(displayln "----- SUPERMERCADOS EL AHORRITO -----")
(displayln "-------- ASISTENTE DE CÁLCULO -------")
(displayln "Para calcular la cantidad de dinero en una bolsa de monedas")
(displayln "   1. Con las denominaciones promedio, escriba (calcular_monedas _promedio)")
(displayln "   2. Con denominaciones personalizadas, escriba (calcular_monedas_diferentes)")
(displayln "Para volver a este menu, escriba (ayuda)")
)

(ayuda)

(define (averageCoinBag n20 n50 n100 n200 n500)
  (+ (* 20 n20)(* 50 n50)(* 100 n100)(* 200 n200)(* 500 n500))
  )

(define (calcular_monedas_promedio)
  (define monedas20 0)
  (define monedas50 0)
  (define monedas100 0)
  (define monedas200 0)
  (define monedas500 0)
    (displayln "--- CANTIDAD DE DINERO EN LA BOLSA (DENOMINACIONES PROMEDIO) ---")
    (displayln "¿Cuantas monedas de $20 hay?")
   (set! monedas20 (read))
    (displayln "¿Cuantas monedas de $50 hay?")
   (set! monedas50 (read))
    (displayln "¿Cuantas monedas de $100 hay?")
   (set! monedas100 (read))
    (displayln "¿Cuantas monedas de $200 hay?")
   (set! monedas200 (read))
    (displayln "¿Cuantas monedas de $500 hay?")
   (set! monedas500 (read))
    (displayln "La cantidad de dinero en la bolsa es de:")
   (averageCoinBag monedas20 monedas50 monedas100 monedas200 monedas500)
)

(define (differentCoinBag t1 n1 t2 n2 t3 n3 t4 n4 t5 n5)
  (+ (* t1 n1)(* t2 n2)(* t3 n3)(* t4 n4)(* t5 n5))
  )

(define (calcular_monedas_diferentes)
  (define tipo1 0)(define cantidad1 0)
  (define tipo2 0)(define cantidad2 0)
  (define tipo3 0)(define cantidad3 0)
  (define tipo4 0)(define cantidad4 0)
  (define tipo5 0)(define cantidad5 0)
    (displayln "--- CANTIDAD DE DINERO EN LA BOLSA (DENOMINACIONES PERSONALIZADAS) ---")
  (displayln "¿Cuál es la primera denominación?")
    (set! tipo1 (read))
  (displayln "¿Cuántas monedas hay de la primera denominación?")
    (set! cantidad1 (read))
  (displayln "¿Cuál es la segunda denominación?")
    (set! tipo2 (read))
  (displayln "¿Cuántas monedas hay de la segunda denominación?")
    (set! cantidad2 (read))
  (displayln "¿Cuál es la tercera denominación?")
    (set! tipo3 (read))
  (displayln "¿Cuántas monedas hay de la tercera denominación?")
    (set! cantidad3 (read))
  (displayln "¿Cuál es la cuarta denominación?")
    (set! tipo4 (read))
  (displayln "¿Cuántas monedas hay de la cuarta denominación?")
    (set! cantidad4 (read))
  (displayln "¿Cuál es la quinta denominación?")
    (set! tipo5 (read))
  (displayln "¿Cuántas monedas hay de la quinta denominación?")
    (set! cantidad5 (read))
  (displayln "El total de dinero en la bolsa es de:")
   (differentCoinBag tipo1 cantidad1 tipo2 cantidad2 tipo3 cantidad3 tipo4 cantidad4 tipo5 cantidad5)
   )