Changeset 1997 in genesis
- Timestamp:
- Apr 12, 2004, 11:44:57 PM (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
nodes/channelea.ml
r1994 r1997 40 40 where f is the result of running prepconf.py on a file with a list of 41 41 paths to the wleiden.conf's to consider. 42 43 Lodewijk Voge <lvoge@cs.vu.nl> 42 44 *) 43 45 … … 51 53 and mutation_rate = 0.1 52 54 (** The most basic score table *) 53 and scoretable = [ ( (<=) 2, 1);54 ( (==) 2, -30);55 ( (==) 1, -70);56 ( (==) 0, -100)]55 and scoretable = [ (<=) 2, 1; 56 (==) 2, -30; 57 (==) 1, -70; 58 (==) 0, -100 ] 57 59 58 60 (* the type definitions. note that Caml has trouble with mutually recursive … … 303 305 let parse_special_conf fname = 304 306 let spacere = Str.regexp " " in 305 let functable = [ ("nointerference", parse_nointerference);306 ("important", parse_quadruplet importantlinks);307 ("interference", parse_quadruplet interference);308 ("unusable", parse_unusable);309 ("supernode", parse_supernode)] in307 let functable = [ "nointerference", parse_nointerference; 308 "important", parse_quadruplet importantlinks; 309 "interference", parse_quadruplet interference; 310 "unusable", parse_unusable; 311 "supernode", parse_supernode ] in 310 312 let do_line fs = (List.assoc (head fs) functable) (tail fs) in 311 313 try
Note:
See TracChangeset
for help on using the changeset viewer.