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 rbg (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]> (rbg)
G
[4]> (setf *fitness* #'fitness-b)
#<STANDARD-GENERIC-FUNCTION FITNESS-B>
[5]> (setf rbg-i (new-individual 1 rbg))
#<INDIVIDUAL #x1A998BE1>
[6]> (individual-number rbg-i)
1
[7]> (individual-rbg-string rbg-i)
(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)
[8]> (display rbg-i)
1       (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)    9
NIL
[9]> (funcall *fitness* rbg)
9
[10]> (setf r (random-individual))
#<INDIVIDUAL #x1A9B29A5>
[11]> (display r)
0       (B R G B B G G R G G G G R G G B G R R B B B B B G)    9
NIL
[12]> (setf r (random-individual))
#<INDIVIDUAL #x1A9B7321>
[13]> (display r)
0       (B G G R B B R R G G B R B G R G B R G R B G G B B)    9
NIL
[14]> (individual-demo)
0       (R B B G R G B B R G G B B B B B G B R R G B G G B)    5
1       (B G G G R B B B G G R B G R B B B B G G B R R B G)    5
2       (B G R B B R B G R G G R G B B G R G G R R R B B R)    9
3       (R R B R B B G G G R B B G R G B R G G B B R R B B)    8
Fitness of i0 = 5
Fitness of i1 = 5
Fitness of i2 = 9
Fitness of i3 = 8
NIL
[15]> (individual-demo)
0       (R B R R B G R G G G G G B R R R R R R R B B G G G)    11
1       (G G B G B B G B G B B B G G G R B G B G G B B R G)    2
2       (B B G G B B R B B B R B G R B G B B B R B R G G B)    5
3       (B B B B B R G R R R R B R B R G B G B G R G B R B)    9
Fitness of i0 = 11
Fitness of i1 = 2
Fitness of i2 = 5
Fitness of i3 = 9
NIL
[16]> (bye)
Bye.