i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "rbg.lsp")
;; Loading file rbg.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file rbg.lsp
T
[2]> (setf a (rbg-string))
(G B B R R R G B R R B B B B G B R R G G G B R R R)
[3]> (fitness-b a)
9
[4]> (fitness-r a)
10
[5]> (fitness-g a)
6
[6]> (setf fitness #'fitness-r)
#<STANDARD-GENERIC-FUNCTION FITNESS-R>
[7]> (setf x (rbg-string))
(G B R G B B G G R G G G G R G G B G R R B B B B B)
[8]> (fitness-r x)
5
[9]> (fitness-b x)
9
[10]> (fitness-g x)
11
[11]> (setf fitness #'fitness-r)
#<STANDARD-GENERIC-FUNCTION FITNESS-R>
[12]> (funcall fitness x)
5
[13]> (setf fitness #'fitness-b)
#<STANDARD-GENERIC-FUNCTION FITNESS-B>
[14]> (funcall fitness x)
9
[15]> (setf fitness #'fitness-g)
#<STANDARD-GENERIC-FUNCTION FITNESS-G>
[16]> (funcall fitness x)
11
[17]> (fitness-demo)
x = (B B R R R G B G R G G R R B B R B G R G B G G B R)
Directly applying the fitness metrics ...
fitness-r = 9
fitness-g = 8
fitness-b = 8
Indirectly applying the fitness metrics ...
fitness-r = 9
fitness-g = 8
fitness-b = 8
NIL
[18]> (fitness-demo)
x = (G R B B G R G B B R G G B B B B B G B R R G B G G)
Directly applying the fitness metrics ...
fitness-r = 5
fitness-g = 9
fitness-b = 11
Indirectly applying the fitness metrics ...
fitness-r = 5
fitness-g = 9
fitness-b = 11
NIL
[19]> (bye)
Bye.