Changeset 1997 in genesis


Ignore:
Timestamp:
Apr 12, 2004, 11:44:57 PM (21 years ago)
Author:
lodewijk
Message:
  • bij tuples in een lijst blijken de (haakjes) niet nodig
  • credit /me
File:
1 edited

Legend:

Unmodified
Added
Removed
  • nodes/channelea.ml

    r1994 r1997  
    4040 where f is the result of running prepconf.py on a file with a list of
    4141 paths to the wleiden.conf's to consider.
     42
     43 Lodewijk Voge <lvoge@cs.vu.nl>
    4244*)
    4345
     
    5153and mutation_rate = 0.1
    5254(** The most basic score table *)
    53 and scoretable = [ ((<=) 2,  1);
    54                    ((==) 2, -30);
    55                    ((==) 1, -70);
    56                    ((==) 0, -100) ]
     55and scoretable = [ (<=) 2,  1;
     56                   (==) 2, -30;
     57                   (==) 1, -70;
     58                   (==) 0, -100 ]
    5759
    5860(* the type definitions. note that Caml has trouble with mutually recursive
     
    303305let parse_special_conf fname =
    304306        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) ] in
     307        let functable = [ "nointerference", parse_nointerference;
     308                          "important", parse_quadruplet importantlinks;
     309                          "interference", parse_quadruplet interference;
     310                          "unusable", parse_unusable;
     311                          "supernode", parse_supernode ] in
    310312        let do_line fs = (List.assoc (head fs) functable) (tail fs) in
    311313        try
Note: See TracChangeset for help on using the changeset viewer.