fix
This commit is contained in:
parent
8d62abed48
commit
dcf93c51f5
@ -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 *)
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user