arkitu/mp2i-info
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tp7 exo10

Browse Source
This commit is contained in:
Arkitu 2026-01-15 21:29:24 +01:00
parent 4914e4b0b4
commit f39773d967
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tp7/exo10.ml
View File

@ -1,2 +1,14 @@
let creer_file () = [],[];; let creer_file () = [],[];;
let enfiler_file (t,q) x = t, x::q;;
let enfiler_file (t,q) x = (t, x::q);;
let rec defiler_file = function
| [], [] -> failwith "Empty queue"
| x::tq, q -> x, (tq, q)
| [], q -> defiler_file (List.rev q, [])
;;
let est_vide_file = function
| [], [] -> true
| _ -> false
;;