media-aritmetica.scm

; Alejandro Flores.
; Quantitative Methods and Analysis
; Marzo 2017.

; Ejercicio de media,
; para tarea de medidas estadísticas.

; nota de examen de Álgebra,
; en un salón de 15 alumnos
; de primer año de Bachillerato en
; un colegio pequeño de Santa Tecla.
; las notas fueron
; 2 3 5 7 8 9 5 9 3 4 10 7 3 7 8
; encontrar la media.

; the below function is the same as
; (/ (+ 2 3 5 7 8 9 5 9 3 4 10 7 3 7 8) 15.0)
; but it'll take a list of " n " arguments
; and operate them accordingly.

; instrucciones:
; pegue este programa en el área
; de edición del intérprete
; y presione Ctrl + Enter
; el intérprete tomará el programa,
; lo cargará en memoria.

(define (media  . lista)
  (/ (apply + lista) (length lista)))

; ahora copie la siguiente linea, sin el " ; "
; (media 2 3 5 7 8 9 5 9 3 4 10 7 2 7 8 )
; péguela a la derecha, en el intérprete interactivo.
; y  presione " enter "
; la respuesta debería de ser 5.933333333333334.

; luego podría ingresar otra serie numérica
; sobre la cual desee computar la media aritmética.