vault backup: 2023-09-29 15:45:23
This commit is contained in:
parent
836868d8a2
commit
39086747da
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user