lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

vault backup: 2023-09-25 14:55:25

Browse Source
This commit is contained in:
Louis Gallet
2023-09-25 14:55:25 +02:00
parent 3ae2872e19
commit be9639c188
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Algo/Séminaire/Exercices seminaire.md
View File

@ -445,10 +445,15 @@ $$
= O(log(n)) = O(log(n))
$$ $$
## Exercise 4.12 - Prime number ## Exercise 4.12 - Prime number
```Ocaml ```OCaml
let prime n = let prime n =
if n < 1 then if n < 1 then
invalid_args "n should not be inferior to zero" invalid_args "n should not be inferior to zero"
else if x = 2 then true else if x = 2 then true
else else
let rec pr a let rec pr n k =
if n mod k = 0 then
false
else
check n (k + 1)
in pr n 2;;