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

vault backup: 2023-09-29 15:48:50

Browse Source
This commit is contained in:
Louis Gallet 2023-09-29 15:48:50 +02:00
parent 39086747da
commit 81fd480fbd
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -499,13 +499,13 @@ let is_perfect n =
if n < 1 then if n < 1 then
invalid_arg "is_perfect: undefinded for n < 1" invalid_arg "is_perfect: undefinded for n < 1"
else else
let rec perfect d = let rec perfect n d =
if n mod d = 0 then if n mod d = 0 then
else if d*d > n then else if d*d > n then
true true
else else
perfect (d + 1) perfect (d + 1)
in perfect d;; in perfect n d;;
``` ```
## Hanoi ## Hanoi
```Ocaml ```Ocaml