Вычисление НОД
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