vault backup: 2023-09-12 18:19:23

This commit is contained in:
Louis Gallet 2023-09-12 18:19:23 +02:00
parent 7aa0bf9977
commit 62d0aa1d7b
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY

View File

@ -287,7 +287,5 @@ let rec quo a b =
0
else if b = 1 then
a
else if a = b then
a
else
a - quo (a-b) b ;;
1 + quo (a-b) b ;;