;; Loaded file C:\Users\Tara\Desktop\rbg5.l
T
[10]> (setf x (rbg-string))
(G B R G G B B R R B B R B R R B G R G G G G G B R)
[11]> x
(G B R G G B B R R B B R B R R B G R G G G G G B R)
[12]> (fitness-r x)
8
[13]> (fitness-b x)
8
[14]> (fitness-g x)
9
[15]> (setf fitness #'fitness-r)
#<STANDARD-GENERIC-FUNCTION FITNESS-R>
[16]> (setf fitness #'fitness-b)
#<STANDARD-GENERIC-FUNCTION FITNESS-B>
[17]> (setf fitness #'fitness-g)
#<STANDARD-GENERIC-FUNCTION FITNESS-G>
[18]> (funcall fitness x)
9
[19]> (fitness-demo)
x = (R R R R R R B B G G G G G B G B B G B G B B B G G)
Directly applying the fitness metrics ...
fitness-r = 6
fitness-b = 9
fitness-g = 10
Indirectly applying the fitness metrics ...
fitness-r = 6
fitness-b = 9
fitness-g = 10
NIL
[20]>