Вычисление НОД
This commit is contained in:
8
Яндринский Влад/NOD.rkt
Normal file
8
Яндринский Влад/NOD.rkt
Normal file
@@ -0,0 +1,8 @@
|
|||||||
|
(define (gcd x y)
|
||||||
|
(if (= y 0)
|
||||||
|
x
|
||||||
|
(gcd y (modulo x y))
|
||||||
|
)
|
||||||
|
)
|
||||||
|
|
||||||
|
(writeln (gcd 999 33))
|
||||||
6
Яндринский Влад/README.md
Normal file
6
Яндринский Влад/README.md
Normal 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);;
|
||||||
Reference in New Issue
Block a user