96735 bytecolor (defstruct 11-MULTIPLEXER-fitness-case input-bits ; list of t or nil output-bit) ; t or nil (defun define-fitness-cases-for-11-MULTIPLEXER () (format t "~&Fitness cases") (let ((index 0) (all-cases (make-array gp:*number-of-fitness-cases*))) (loop for i from 0 below gp:*number-of-fitness-cases* do (let ((fitness-case (make-11-MULTIPLEXER-fitness-case)) (bits (map 'list (lambda (c) (if (eq c #\1) t nil)) (format nil "~11,'0B" i)))) (setf (11-MULTIPLEXER-fitness-case-input-bits fitness-case) bits) (destructuring-bind (a2 a1 a0 d7 d6 d5 d4 d3 d2 d1 d0) bits (setf (11-MULTIPLEXER-fitness-case-output-bit fitness-case) (if a2 (if a1 d6 d4) (if a2 d4 (if a1 d2 (if a2 d7 d0))))) (setf (aref all-cases index) fitness-case) (incf index) (format t "~&~5,D ~{~:[0~;1~]~} ~:[0~;1~]" index (11-MULTIPLEXER-fitness-case-input-bits fitness-case) (11-MULTIPLEXER-fitness-case-output-bit fitness-case))))) all-cases)) 3478203647 #lisp Common Lisp TRUE