MUTATE2

(defun mutate2 (individual)

"Returns a slightly altered INDIVIDUAL, with the

alteration generated randomly.

Two cities are transposed."

(let* ((path (get-path individual))

(where1 (random (length path)))

(where2 (random (length path)))

(city1 (nth where1 path))

(city2 (nth where2 path)) )

(cons (replace-nth

(replace-nth path where1 city2)

where2

city1)

0) ) )

Previous slide

Next slide

Back to first slide

View graphic version