vault backup: 2023-09-12 18:19:23
This commit is contained in:
parent
7aa0bf9977
commit
62d0aa1d7b
@ -287,7 +287,5 @@ let rec quo a b =
|
|||||||
0
|
0
|
||||||
else if b = 1 then
|
else if b = 1 then
|
||||||
a
|
a
|
||||||
else if a = b then
|
|
||||||
a
|
|
||||||
else
|
else
|
||||||
a - quo (a-b) b ;;
|
1 + quo (a-b) b ;;
|
Loading…
x
Reference in New Issue
Block a user