5
6?- use_module(library(random)). 7?- use_module(library(system)). 8?- use_module(library(lists)). 9
10?- consult(library(sre_dna/dynamics)). 11?- consult(library(sre_dna/dctg)). 12?- consult(library(sre_dna/parameters_P)). 13?- consult(library(sre_dna/operators)). 14?- consult(library(sre_dna/dctg_pp)). 15?- consult(library(sre_dna/utils)). 16
17?- dctg_file_P(FileDCTG),grammar(FileDCTG), make_grammar_table. 18regen:- tell( 'compile_file.pl' ), 19 write( '?- use_module(library(lists)).
20 '),
21 nl,
22 listing,
23 told.
24:- regen.
25
26
27
28?- consult(library(sre_dna/ccs_utils)). 29?- consult(library(sre_dna/dctg_gen)). 30?- consult(library(sre_dna/dctg_reprod)). 31?- consult(library(sre_dna/dctg_utils)). 32?- consult(library(sre_dna/generate)). 33?- consult(library(sre_dna/gp_engine)). 34?- consult(library(sre_dna/lamarckian)). 35?- consult(library(sre_dna/evaluation)). 36?- consult(library(sre_dna/file_stats)). 37
40
49
50?- fitness_func_P(File), consult(File).
51
52?- fast:consult(compile_file). 53?- clean_up.