This commit is contained in:
Arkitu 2025-12-23 10:41:39 +00:00
parent 8d62abed48
commit dcf93c51f5

View File

@ -4,7 +4,7 @@ let zip ta tb = Array.map2 (fun a b -> a,b) ta tb;;
(* Exercice 1 *) (* Exercice 1 *)
let tirette t = let tirette t =
let n = Array.length t in let n = Array.length t in
Array.init (n/2) (fun i -> t.(i) + t.(n-i)) Array.init (n/2) (fun i -> t.(i) + t.(n-i-1))
;; ;;
(* Exercice 2 *) (* Exercice 2 *)