reorganize ocaml code
This commit is contained in:
Arkitu
parent
0830136fb8
commit
0c91a805e4
32
dm4/dm4.opam
32
dm4/dm4.opam
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
9
dm4/dune
Normal file
9
dm4/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name dm4)
|
||||||
|
(modules dm4)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries dm4)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name dm4)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name dm4)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name lib)
|
|
||||||
(public_name dm4))
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
open Lib;;
|
open Dm4;;
|
||||||
|
|
||||||
assert (plusetfois 5 6 = (11, 30));;
|
assert (plusetfois 5 6 = (11, 30));;
|
||||||
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test_dm4)
|
|
||||||
(libraries lib))
|
|
||||||
32
dm5/dm5.opam
32
dm5/dm5.opam
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
9
dm5/dune
Normal file
9
dm5/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name dm5)
|
||||||
|
(modules dm5)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries dm5)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name dm5)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name dm5)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name lib)
|
|
||||||
(public_name dm5))
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
open Lib;;
|
open Dm5;;
|
||||||
|
|
||||||
assert (rotation
|
assert (rotation
|
||||||
[|
|
[|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test)
|
|
||||||
(public_name test)
|
|
||||||
(libraries lib))
|
|
||||||
1
dune-project
Normal file
1
dune-project
Normal file
@ -0,0 +1 @@
|
|||||||
|
(lang dune 3.20)
|
||||||
5
td4/dune
Normal file
5
td4/dune
Normal file
@ -0,0 +1,5 @@
|
|||||||
|
(library
|
||||||
|
(name td4)
|
||||||
|
(modules td4)
|
||||||
|
)
|
||||||
|
(env (dev (flags :standard -w -27-32-39)))
|
||||||
9
td5/dune
Normal file
9
td5/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name td5)
|
||||||
|
(modules td5)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries td5)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name td5)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name td5)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name lib)
|
|
||||||
(public_name td5))
|
|
||||||
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test)
|
|
||||||
(public_name test)
|
|
||||||
(libraries lib))
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
open Lib;;
|
open Td5;;
|
||||||
|
|
||||||
let l = [5; 3; 9; 0; 5; 0];;
|
let l = [5; 3; 9; 0; 5; 0];;
|
||||||
let sorted = [0; 0; 3; 5; 5; 9];;
|
let sorted = [0; 0; 3; 5; 5; 9];;
|
||||||
9
td6/dune
Normal file
9
td6/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name td6)
|
||||||
|
(modules td6)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries td6)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name td6)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name td6)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name lib)
|
|
||||||
(public_name td6))
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
let radix l =
|
|
||||||
let r = ref 0 in
|
|
||||||
let running = ref true in
|
|
||||||
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test)
|
|
||||||
(public_name test)
|
|
||||||
(libraries lib))
|
|
||||||
@ -1 +0,0 @@
|
|||||||
open Lib;;
|
|
||||||
3
td6/td6.ml
Normal file
3
td6/td6.ml
Normal file
@ -0,0 +1,3 @@
|
|||||||
|
(* let radix l =
|
||||||
|
let r = ref 0 in
|
||||||
|
let running = ref true in *)
|
||||||
15
tp4/bin/dune
15
tp4/bin/dune
@ -1,15 +0,0 @@
|
|||||||
(executable
|
|
||||||
(public_name exo1)
|
|
||||||
(name exo1))
|
|
||||||
(executable
|
|
||||||
(public_name exo2)
|
|
||||||
(name exo2))
|
|
||||||
(executable
|
|
||||||
(public_name exo3)
|
|
||||||
(name exo3))
|
|
||||||
(executable
|
|
||||||
(public_name exo4)
|
|
||||||
(name exo4))
|
|
||||||
(executable
|
|
||||||
(public_name exo5)
|
|
||||||
(name exo5))
|
|
||||||
@ -1,33 +0,0 @@
|
|||||||
let rec somme_liste l = match l with
|
|
||||||
| [] -> 0
|
|
||||||
| a::q -> a + somme_liste q;;
|
|
||||||
|
|
||||||
assert (somme_liste [1; 3; 2] = 6);;
|
|
||||||
|
|
||||||
let rec taille_liste l = match l with
|
|
||||||
| [] -> 0
|
|
||||||
| _::q -> 1 + taille_liste q;;
|
|
||||||
|
|
||||||
assert (taille_liste [1; 3; 2] = 3);;
|
|
||||||
|
|
||||||
let rec pow valeur exposant = match exposant with
|
|
||||||
| 0 -> 1
|
|
||||||
| i -> valeur * (pow valeur (i - 1));;
|
|
||||||
|
|
||||||
assert (pow 4 3 = 64);;
|
|
||||||
|
|
||||||
(* On peut remplacer i - 1 par exposant - 1 car les deux noms coexistent. *)
|
|
||||||
let rec part_ent_log2 nombre =
|
|
||||||
if nombre = 0 then failwith "Boum !";
|
|
||||||
(* Il est toujours utile de connaître les exceptions tôt. *)
|
|
||||||
if nombre = 1 then 0
|
|
||||||
else 1 + (part_ent_log2 (nombre / 2));;
|
|
||||||
|
|
||||||
assert (part_ent_log2 10 = 3);;
|
|
||||||
|
|
||||||
let rec est_dans_liste element l = match l with
|
|
||||||
| [] -> false
|
|
||||||
| a::q -> a = element || est_dans_liste element q;;
|
|
||||||
|
|
||||||
assert (est_dans_liste 2 [1; 3; 2]);;
|
|
||||||
assert (not (est_dans_liste 4 [1; 3; 2]));;
|
|
||||||
@ -1,10 +0,0 @@
|
|||||||
|
|
||||||
let biggest l = match l with
|
|
||||||
| [] -> failwith "Empty list"
|
|
||||||
| x::q -> List.fold_left
|
|
||||||
(fun acc a -> max acc a)
|
|
||||||
x
|
|
||||||
q
|
|
||||||
;;
|
|
||||||
|
|
||||||
assert (biggest [0; 7; 4] == 7);;
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
let prod l = List.fold_left (fun acc x -> acc *. x) 1. l;;
|
|
||||||
|
|
||||||
assert (abs_float (prod [1.5; 2.; 3.] -. 9.) <= 1e-14 );
|
|
||||||
@ -1,6 +0,0 @@
|
|||||||
let rec is_ordered l = match l with
|
|
||||||
| a::b::q -> a <= b && is_ordered (b::q)
|
|
||||||
| _ -> true;;
|
|
||||||
|
|
||||||
assert (is_ordered [1; 5; 6]);;
|
|
||||||
assert (not (is_ordered [5.6; 7.8; 3.]));;
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
let rec is_ordered l = match l with
|
|
||||||
| a::b::q -> a <= b && is_ordered (b::q)
|
|
||||||
| _ -> true;;
|
|
||||||
let rec is_rev_ordered l = match l with
|
|
||||||
| a::b::q -> a >= b && is_ordered (b::q)
|
|
||||||
| _ -> true;;
|
|
||||||
|
|
||||||
let rec has_ordering l = match l with
|
|
||||||
| a::b::q -> if a < b then
|
|
||||||
is_ordered (b::q)
|
|
||||||
else if a > b then
|
|
||||||
is_rev_ordered (b::q)
|
|
||||||
else has_ordering (b::q)
|
|
||||||
| _ -> true;;
|
|
||||||
|
|
||||||
assert (has_ordering [1; 1; 2; 2; 3]);;
|
|
||||||
assert (has_ordering [3; 2; 1; 1]);;
|
|
||||||
assert (not (has_ordering [1; 1; 2; 1]));;
|
|
||||||
9
tp4/dune
Normal file
9
tp4/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name tp4)
|
||||||
|
(modules tp4)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries tp4)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name tp4)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name tp4)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name exo1)
|
|
||||||
)
|
|
||||||
23
tp4/test.ml
Normal file
23
tp4/test.ml
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
open Tp4;;
|
||||||
|
|
||||||
|
assert (somme_liste [1; 3; 2] = 6);;
|
||||||
|
|
||||||
|
assert (taille_liste [1; 3; 2] = 3);;
|
||||||
|
|
||||||
|
assert (pow 4 3 = 64);;
|
||||||
|
|
||||||
|
assert (part_ent_log2 10 = 3);;
|
||||||
|
|
||||||
|
assert (est_dans_liste 2 [1; 3; 2]);;
|
||||||
|
assert (not (est_dans_liste 4 [1; 3; 2]));;
|
||||||
|
|
||||||
|
assert (biggest [0; 7; 4] == 7);;
|
||||||
|
|
||||||
|
assert (abs_float (prod [1.5; 2.; 3.] -. 9.) <= 1e-14 );;
|
||||||
|
|
||||||
|
assert (is_ordered [1; 5; 6]);;
|
||||||
|
assert (not (is_ordered [5.6; 7.8; 3.]));;
|
||||||
|
|
||||||
|
assert (has_ordering [1; 1; 2; 2; 3]);;
|
||||||
|
assert (has_ordering [3; 2; 1; 1]);;
|
||||||
|
assert (not (has_ordering [1; 1; 2; 1]));;
|
||||||
@ -1,2 +0,0 @@
|
|||||||
(test
|
|
||||||
(name test_tp4))
|
|
||||||
82
tp4/tp4.ml
Normal file
82
tp4/tp4.ml
Normal file
@ -0,0 +1,82 @@
|
|||||||
|
(* Exercice 1 *)
|
||||||
|
|
||||||
|
let rec somme_liste l = match l with
|
||||||
|
| [] -> 0
|
||||||
|
| a::q -> a + somme_liste q;;
|
||||||
|
|
||||||
|
assert (somme_liste [1; 3; 2] = 6);;
|
||||||
|
|
||||||
|
let rec taille_liste l = match l with
|
||||||
|
| [] -> 0
|
||||||
|
| _::q -> 1 + taille_liste q;;
|
||||||
|
|
||||||
|
assert (taille_liste [1; 3; 2] = 3);;
|
||||||
|
|
||||||
|
let rec pow valeur exposant = match exposant with
|
||||||
|
| 0 -> 1
|
||||||
|
| i -> valeur * (pow valeur (i - 1));;
|
||||||
|
|
||||||
|
assert (pow 4 3 = 64);;
|
||||||
|
|
||||||
|
(* On peut remplacer i - 1 par exposant - 1 car les deux noms coexistent. *)
|
||||||
|
let rec part_ent_log2 nombre =
|
||||||
|
if nombre = 0 then failwith "Boum !";
|
||||||
|
(* Il est toujours utile de connaître les exceptions tôt. *)
|
||||||
|
if nombre = 1 then 0
|
||||||
|
else 1 + (part_ent_log2 (nombre / 2));;
|
||||||
|
|
||||||
|
assert (part_ent_log2 10 = 3);;
|
||||||
|
|
||||||
|
let rec est_dans_liste element l = match l with
|
||||||
|
| [] -> false
|
||||||
|
| a::q -> a = element || est_dans_liste element q;;
|
||||||
|
|
||||||
|
assert (est_dans_liste 2 [1; 3; 2]);;
|
||||||
|
assert (not (est_dans_liste 4 [1; 3; 2]));;
|
||||||
|
|
||||||
|
(* Exercice 2 *)
|
||||||
|
|
||||||
|
let biggest l = match l with
|
||||||
|
| [] -> failwith "Empty list"
|
||||||
|
| x::q -> List.fold_left
|
||||||
|
(fun acc a -> max acc a)
|
||||||
|
x
|
||||||
|
q
|
||||||
|
;;
|
||||||
|
|
||||||
|
assert (biggest [0; 7; 4] == 7);;
|
||||||
|
|
||||||
|
(* Exercice 3 *)
|
||||||
|
|
||||||
|
let prod l = List.fold_left (fun acc x -> acc *. x) 1. l;;
|
||||||
|
|
||||||
|
assert (abs_float (prod [1.5; 2.; 3.] -. 9.) <= 1e-14 );;
|
||||||
|
|
||||||
|
(* Exercice 4 *)
|
||||||
|
|
||||||
|
let rec is_ordered l = match l with
|
||||||
|
| a::(b::q) -> a <= b && is_ordered (b::q)
|
||||||
|
| _ -> true
|
||||||
|
;;
|
||||||
|
|
||||||
|
assert (is_ordered [1; 5; 6]);;
|
||||||
|
assert (not (is_ordered [5.6; 7.8; 3.]));;
|
||||||
|
|
||||||
|
(* Exercice 5 *)
|
||||||
|
|
||||||
|
let rec is_rev_ordered l = match l with
|
||||||
|
| a::b::q -> a >= b && is_rev_ordered (b::q)
|
||||||
|
| _ -> true
|
||||||
|
;;
|
||||||
|
|
||||||
|
let rec has_ordering l = match l with
|
||||||
|
| a::b::q -> if a < b then
|
||||||
|
is_ordered (b::q)
|
||||||
|
else if a > b then
|
||||||
|
is_rev_ordered (b::q)
|
||||||
|
else has_ordering (b::q)
|
||||||
|
| _ -> true;;
|
||||||
|
|
||||||
|
assert (has_ordering [1; 1; 2; 2; 3]);;
|
||||||
|
assert (has_ordering [3; 2; 1; 1]);;
|
||||||
|
assert (not (has_ordering [1; 1; 2; 1]));;
|
||||||
32
tp4/tp4.opam
32
tp4/tp4.opam
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
9
tp6/dune
Normal file
9
tp6/dune
Normal file
@ -0,0 +1,9 @@
|
|||||||
|
(library
|
||||||
|
(name tp6)
|
||||||
|
(modules tp6)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries tp6)
|
||||||
|
)
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name tp6)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name tp6)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name lib)
|
|
||||||
(public_name tp6))
|
|
||||||
@ -1,4 +1,4 @@
|
|||||||
open Lib;;
|
open Tp6;;
|
||||||
|
|
||||||
assert (correct (Fraction (3, 4)));;
|
assert (correct (Fraction (3, 4)));;
|
||||||
assert (correct (Entier 5));;
|
assert (correct (Entier 5));;
|
||||||
@ -1,4 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test_tp6)
|
|
||||||
(public_name test_tp6)
|
|
||||||
(libraries lib))
|
|
||||||
32
tp6/tp6.opam
32
tp6/tp6.opam
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
17
tp7/dune
Normal file
17
tp7/dune
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
(library
|
||||||
|
(name exo2)
|
||||||
|
(modules exo2)
|
||||||
|
)
|
||||||
|
(library
|
||||||
|
(name exo5)
|
||||||
|
(modules exo5)
|
||||||
|
)
|
||||||
|
(library
|
||||||
|
(name exo10)
|
||||||
|
(modules exo10)
|
||||||
|
)
|
||||||
|
(executable
|
||||||
|
(name test)
|
||||||
|
(modules test)
|
||||||
|
(libraries exo2 exo5 exo10)
|
||||||
|
)
|
||||||
4
tp7/exo5.ml
Normal file
4
tp7/exo5.ml
Normal file
@ -0,0 +1,4 @@
|
|||||||
|
type 'a lc = {
|
||||||
|
mutable tete : 'a option;
|
||||||
|
mutable suivant : 'a lc option
|
||||||
|
};;
|
||||||
@ -1,26 +0,0 @@
|
|||||||
(lang dune 3.20)
|
|
||||||
|
|
||||||
(name tp7)
|
|
||||||
|
|
||||||
(generate_opam_files true)
|
|
||||||
|
|
||||||
(source
|
|
||||||
(github username/reponame))
|
|
||||||
|
|
||||||
(authors "Author Name <author@example.com>")
|
|
||||||
|
|
||||||
(maintainers "Maintainer Name <maintainer@example.com>")
|
|
||||||
|
|
||||||
(license LICENSE)
|
|
||||||
|
|
||||||
(documentation https://url/to/documentation)
|
|
||||||
|
|
||||||
(package
|
|
||||||
(name tp7)
|
|
||||||
(synopsis "A short synopsis")
|
|
||||||
(description "A longer description")
|
|
||||||
(depends ocaml)
|
|
||||||
(tags
|
|
||||||
("add topics" "to describe" your project)))
|
|
||||||
|
|
||||||
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
|
|
||||||
@ -1,3 +0,0 @@
|
|||||||
(library
|
|
||||||
(name exo2)
|
|
||||||
(public_name tp7))
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
(executable
|
|
||||||
(name test)
|
|
||||||
(public_name test)
|
|
||||||
(libraries exo2))
|
|
||||||
@ -1 +0,0 @@
|
|||||||
open Exo2;;
|
|
||||||
@ -1,32 +0,0 @@
|
|||||||
# This file is generated by dune, edit dune-project instead
|
|
||||||
opam-version: "2.0"
|
|
||||||
synopsis: "A short synopsis"
|
|
||||||
description: "A longer description"
|
|
||||||
maintainer: ["Maintainer Name <maintainer@example.com>"]
|
|
||||||
authors: ["Author Name <author@example.com>"]
|
|
||||||
license: "LICENSE"
|
|
||||||
tags: ["add topics" "to describe" "your" "project"]
|
|
||||||
homepage: "https://github.com/username/reponame"
|
|
||||||
doc: "https://url/to/documentation"
|
|
||||||
bug-reports: "https://github.com/username/reponame/issues"
|
|
||||||
depends: [
|
|
||||||
"dune" {>= "3.20"}
|
|
||||||
"ocaml"
|
|
||||||
"odoc" {with-doc}
|
|
||||||
]
|
|
||||||
build: [
|
|
||||||
["dune" "subst"] {dev}
|
|
||||||
[
|
|
||||||
"dune"
|
|
||||||
"build"
|
|
||||||
"-p"
|
|
||||||
name
|
|
||||||
"-j"
|
|
||||||
jobs
|
|
||||||
"@install"
|
|
||||||
"@runtest" {with-test}
|
|
||||||
"@doc" {with-doc}
|
|
||||||
]
|
|
||||||
]
|
|
||||||
dev-repo: "git+https://github.com/username/reponame.git"
|
|
||||||
x-maintenance-intent: ["(latest)"]
|
|
||||||
1
tp7/test.ml
Normal file
1
tp7/test.ml
Normal file
@ -0,0 +1 @@
|
|||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user