update README

README.md

@@ -1,8 +1,8 @@
-# TPs d'informatique de MP2I
+# TPs/TDs d'informatique de MP2I
 
-Ce sont mes code des tp d'informatique de MP2I. Ils ne sont probablement pas les plus intuitifs ou optimisés (ou les plus correct même si normalement ils devraient 😅) mais ils font de leur mieux et c'est déjà pas mal.
+Ce sont mes code des tp/td d'informatique de MP2I. Ils ne sont probablement pas les plus intuitifs ou optimisés (ou les plus correct même si normalement ils devraient 😅) mais ils font de leur mieux et c'est déjà pas mal.
 
-## Tester les programmes
+## Tester les programmes en C
 
 Tu peux exécuter les programmes par toi même si tu sais faire.
 J'ai quand même fais un petit tutoriel si tu n'es pas sûr(e).
@@ -19,3 +19,7 @@ Ouvre un terminal et exécute les commandes suivantes :
 ### Sur Windows
 
 https://www.fedoraproject.org/
+
+## Tester les programmes en OCamL
+
+Je ne garantit pas que ça marche bien, je galère régulièrement à exécuter mes propres programmes. Chaque tp/td est un projet [dune](https://dune.build/), tu peux trouver les fonctions dans les sous-dossiers `bin` ou `lib`, et les tests soit avec les fonctions, soit dans le sous-dossier `test`.

dm4/bin/dune

@@ -1,4 +0,0 @@
-(executable
- (public_name dm4)
- (name main)
- (libraries dm4))

dm4/bin/main.ml

@@ -1,28 +0,0 @@
-(* let plusetfois a b = (a+b, a*b);;
-(* assert (plusetfois 5 6 == (11, 30));; *)
-
-let rec pp2_h n = match n with
-  | 0 -> 1
-  | _ -> 2 * (pp2_h (n/2))
-;;
-let pp2 n = if n == 0 then 0 else pp2_h (n-1);;
-
-(* assert (pp2 10 == 16);;
-assert (pp2 32 == 32);;
-assert (pp2 1 == 1);;
-assert (pp2 0 == 0);; *)
-
-let leeloo l = match l with
-  | _::_::_::_::a::_ -> a
-  | _ -> failwith "Not enough elements";;
-
-(* assert (leeloo [2; 65; 2; 3; 7; 2] == 7);; *)
-
-let rec coupe l = match l with
-  | a::b::q ->
-    let qa, qb = coupe q in
-    a::qa, b::qb
-  | _ -> l, []
-;;
-
-(* assert (coupe [2; 65; 4; 3; 7; 2] == ([2; 4; 7], [65; 3; 2])); *) *)