#lang racket

;(require (only-in "parametros-nuevo-bidones.rkt" criterio-fitness))
(require (only-in "parametros-tsp.rkt" criterio-fitness))

;;Módulo para aplicar fitness y ordenar una población
;;;ORDENACION DE UNA POBLACIÓN O SUB-POBLACIÓN CUYO CAR ES FITNESS
;;ordena una población o una sub-población. poblacion=lista individuos
(define orden-pob-fitness
  (lambda (poblacion)
    (sort poblacion #:key car <) ));>
;;;APLICAR FITNESS A UNA POBLACIÓN O SUB-POBLACIÓN
(define aplicar-fitness
  (lambda (pob)
    (map
     (lambda (cromosoma)
       (list
        (criterio-fitness cromosoma)
        cromosoma))
     pob) ))

(provide
 orden-pob-fitness
 aplicar-fitness
 )
