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 "tsp.lsp")
;; Loading file tsp.lsp ...
;;  Loading file lp.lsp ...
;;  Loaded file lp.lsp
;; Loaded file tsp.lsp
T
[2]> (mutation-demo)
s = (R D H B K N M F G O L E S P I C Q J A)
m = (R D H B K N M F G O L P S E I C Q J A)

s = (R D H B K N M F G O L P S E I C Q J A)
m = (R D H B K N M F G O L E S P I C Q J A)

s = (R D H B K N M F G O L E S P I C Q J A)
m = (R D H B K N J F G O L E S P I C Q M A)

s = (R D H B K N J F G O L E S P I C Q M A)
m = (R D H B K N J F G O L I S P E C Q M A)

s = (R D H B K N J F G O L I S P E C Q M A)
m = (R M H B K N J F G O L I S P E C Q D A)

s = (R M H B K N J F G O L I S P E C Q D A)
m = (R M H B K N Q F G O L I S P E C J D A)

s = (R M H B K N Q F G O L I S P E C J D A)
m = (R M H B K N A F G O L I S P E C J D Q)

s = (R M H B K N A F G O L I S P E C J D Q)
m = (R M O B K N A F G H L I S P E C J D Q)

s = (R M O B K N A F G H L I S P E C J D Q)
m = (R M O B I N A F G H L K S P E C J D Q)

s = (R M O B I N A F G H L K S P E C J D Q)
m = (R M O B I N A F G H L C S P E K J D Q)

NIL
[3]> (crossover-demo)
m = (R J E F O Q A P L I G H M B D S N C K)
x = (R J E F O Q A P L I G H M B D S N C K)
f = (A H M R I K G L J P Q N O C B S F D E)

m = (L M R A F B S P J K O Q C D I H G N E)
x = (L M R A F B S P J K O Q C D I H G N E)
f = (K D Q F I L P N B E O G A M H R J C S)

m = (L J H Q A I P S M B O C D K E G N R F)
x = (L H J Q A I P S M B O C D K E G N R F)
f = (A M H J K D I R N B G P L C E Q F S O)

m = (F K M C R D O H B I Q E L A G N S J P)
x = (F K M C R D O H B I Q E L A G N S J P)
f = (E N H C A Q L B F R S M I K D O P G J)

m = (D M N S K C J O P E H B I A F L G R Q)
x = (D M N S K C J O E H P B I A F L G R Q)
f = (A E H P D L J R F Q G I M O C B K S N)

m = (H Q J M D A E B I N G O P C R K F L S)
x = (J K N C A M B O G H D R E P I Q F L S)
f = (J K N C A M B O G H D R E P I Q S L F)

m = (B J M H D L N R P I Q S F E A C K O G)
x = (B J M H D L N R P I Q S F E A C K O G)
f = (C A O M S R L H G E P N F D B J I Q K)

m = (M G O I E F P A H D L J K N R Q B S C)
x = (M G O I E F P A H D L J K N R Q B S C)
f = (S K N R F O B J M G Q P A D I E C L H)

m = (E A K G M D H C I R L P O N J Q B F S)
x = (E A K G D M H C I R L P O N J Q B F S)
f = (R A G Q F P E K H I L J B D M S N C O)

m = (E L S B Q D P C R G J N F A M O H K I)
x = (E L S B Q D P C R G J N F A M O H K I)
f = (N Q O B P M S R H D A C G I J F E K L)

NIL
[4]> (setf m (tsp-string))
(G A Q P C O H D F I S E K B M N L R J)
[5]> (setf f (tsp-string))
(D B A K Q E G M R H C J I N F P S O L)
[6]> (find-largest-span-set m f)
(G A Q P C O H D F I S E K B M N L R J)
[7]> (bye)
Bye.