vault backup: 2023-09-29 15:45:23

This commit is contained in:
Louis Gallet 2023-09-29 15:45:23 +02:00
parent 836868d8a2
commit 39086747da
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY

View File

@ -501,12 +501,10 @@ let is_perfect n =
else else
let rec perfect d = let rec perfect d =
if n mod d = 0 then if n mod d = 0 then
if d*d > n then else if d*d > n then
true true
else else
perfect (d + 1) perfect (d + 1)
else
in perfect d;; in perfect d;;
``` ```
## Hanoi ## Hanoi