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

vault backup: 2023-09-29 15:34:31

Browse Source
This commit is contained in:
Louis Gallet 2023-09-29 15:34:31 +02:00
parent ddc1e64e33
commit 836868d8a2
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -483,7 +483,7 @@ let is_prime n =
n = 2
else
let rec check d =
if d = n then
if d*d > n then
true
else if n mod d = 0 then
false
@ -493,6 +493,22 @@ let is_prime n =
```
## 4.13 - Perfect
```Ocaml
let is_perfect n =
if n < 1 then
invalid_arg "is_perfect: undefinded for n < 1"
else
let rec perfect d =
if n mod d = 0 then
if d*d > n then
true
else
perfect (d + 1)
else
in perfect d;;
```
## Hanoi
```Ocaml
(* displays moves: source -> destination *)