#lang racket

;(require (only-in "parametros-nuevo-bidones.rkt" length-poblacion))
(require (only-in "parametros-tsp.rkt" 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)
    (exact->inexact
     (/
      (apply +
             (map
              (lambda (crom)
                (car crom))
              poblacion) )
      length-poblacion))
    ))

(provide
 print-poblacion
 promedio-fitness
 )