let vect_length = Array.length ;; let swap t a b = let c = t.(a) in t.(a) <- t.(b) ; t.(b) <- c let coupe tableau deb fin pivot = let rec coupeR deb fin = if deb incr r;print_int !r ;print_newline(); print_string aff; print_newline() in let pose x y v = for i = -7 to 7 do g.(x).(y+i) <- g.(x).(y+i)+ v ; g.(x+i).(y) <-g.(x+i).(y)+ v ; g.(x+i).(y+i) <-g.(x+i).(y+i)+v ; g.(x+i).(y-i) <- g.(x+i).(y-i)+ v done ; if v > 0 then aff.[(x-8)*9+y-8]<- '*' else aff.[(x-8)*9+y-8]<- ' ' in let rec foo y = if y > 15 then affiche () else for x = 8 to 15 do if g.(x).(y) = 0 then ( pose x y 1 ; foo (y+1) ; pose x y (-1)) done in foo 8 ;; huit_dame();;