#lang scheme

(require (only-in "parametros-nuevo-bidones.ss" length-poblacion))

;;Módulo de funciones auxiliares
(define print-poblacion
 (lambda (pob)
   (if (null? pob)
       (newline)
       (begin
         (printf "~a~n" (car pob))
         (print-poblacion (cdr pob))))  ))
;;promedio fitness de una poblacion
(define promedio-fitness;individuo=(fitness (representación))
  (lambda (poblacion)
    (/
     (apply +
            (map
             (lambda (crom)
               (car crom))
             poblacion) )
     length-poblacion)
    ))

(provide
 print-poblacion
 promedio-fitness
 )