kcavaill/ocaml_project
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Mettre à jour 'src/BLF.ml'

Browse source
This commit is contained in:
Leonie Gallois 2020-12-12 17:24:24 +01:00
parent 57929ecbfd
commit f4c71b432c
1 changed files with 0 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/BLF.ml
View file

@ -40,12 +40,6 @@ let blf gr id_src id_dest=
blf_tab.(id).father<-a; blf_tab.(id).father<-a;
if not (List.mem id file_marque) then loop_suc d blf_tab (id::file) else loop_suc d blf_tab file if not (List.mem id file_marque) then loop_suc d blf_tab (id::file) else loop_suc d blf_tab file
end end
(*else if lcapa <> 0 && (Int.add blf_tab.(a).cout lcout)=(blf_tab.(id).cout) && ((Random.int 2)=0) then
begin
blf_tab.(id).cout<-(Int.add blf_tab.(a).cout lcout);
blf_tab.(id).father<-a;
if not (List.mem id file_marque) then loop_suc d blf_tab (id::file) else loop_suc d blf_tab file
end*)
else loop_suc d blf_tab file in else loop_suc d blf_tab file in
loop_suc l_out_arc blf_tab b in loop_suc l_out_arc blf_tab b in
blf_rec gr file_id file_marque blf_rec gr file_id file_marque