Вычисление НОД

This commit is contained in:
2022-05-12 19:16:57 +03:00
parent d867691dd6
commit 949cfc5a23
2 changed files with 14 additions and 0 deletions

View File

@@ -0,0 +1,8 @@
(define (gcd x y)
(if (= y 0)
x
(gcd y (modulo x y))
)
)
(writeln (gcd 999 33))

View File

@@ -0,0 +1,6 @@
# Вычисление НОД
## Ссылка на видеоразбор
https://youtu.be/8ulDLp5TqL0
## Код из книги
#let rec gcd x y =
if y = 0 then x else gcd y (x mod y);;