~cedric/crossword-generator

0d45cc037b61eb228f98e000e6f490ec09ae0378 — C├ędric Bonhomme 3 years ago 4d86d37 master
fix: & is deprecated.
1 files changed, 2 insertions(+), 1 deletions(-)

M crossword_generator.ml
M crossword_generator.ml => crossword_generator.ml +2 -1
@@ 39,7 39,7 @@ let rec trunc n =
        | a -> a in
    function
        | V -> V
        | N(x,_,fd) when (n=0)&(x!='~') -> help (trunc n fd)
        | N(x,_,fd) when (n=0)&&(x!='~') -> help (trunc n fd)
        | N(x,fg,fd) -> help (N(x,trunc (n-1) fg,trunc n fd));;




@@ 87,3 87,4 @@ let run d =
    | c -> fill (i,j-1,add_char s c j,term c ag,(term c (hd (rev fah)))::(suppr fah))) lex
in 
fill (d, d, "", trunc d dico, trunc d dico::[]);;