From afbe9492bfd249f432e8059fd75c40cc4d75460e Mon Sep 17 00:00:00 2001
From: Arkitu <85173315+Arkitu@users.noreply.github.com>
Date: Sat, 8 Nov 2025 20:49:58 +0100
Subject: [PATCH] update README

---
 README.md       | 10 +++++++---
 dm4/bin/dune    |  4 ----
 dm4/bin/main.ml | 28 ----------------------------
 3 files changed, 7 insertions(+), 35 deletions(-)
 delete mode 100644 dm4/bin/dune
 delete mode 100644 dm4/bin/main.ml

diff --git a/README.md b/README.md
index 6bd540c..b636385 100644
--- a/README.md
+++ b/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`.
diff --git a/dm4/bin/dune b/dm4/bin/dune
deleted file mode 100644
index f606d05..0000000
--- a/dm4/bin/dune
+++ /dev/null
@@ -1,4 +0,0 @@
-(executable
- (public_name dm4)
- (name main)
- (libraries dm4))
\ No newline at end of file
diff --git a/dm4/bin/main.ml b/dm4/bin/main.ml
deleted file mode 100644
index 78e0a8f..0000000
--- a/dm4/bin/main.ml
+++ /dev/null
@@ -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])); *) *)
\ No newline at end of file