From 949cfc5a23a15b32b41dda410f18241521172bc4 Mon Sep 17 00:00:00 2001
From: Dmitriy Gorshenin <dmitriy.gorshenin@gmail.com>
Date: Thu, 12 May 2022 19:16:57 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=D1=8B=D1=87=D0=B8=D1=81=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=9D=D0=9E=D0=94?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Яндринский Влад/NOD.rkt   | 8 ++++++++
 Яндринский Влад/README.md | 6 ++++++
 2 files changed, 14 insertions(+)
 create mode 100644 Яндринский Влад/NOD.rkt
 create mode 100644 Яндринский Влад/README.md

diff --git a/Яндринский Влад/NOD.rkt b/Яндринский Влад/NOD.rkt
new file mode 100644
index 0000000..2506e42
--- /dev/null
+++ b/Яндринский Влад/NOD.rkt	
@@ -0,0 +1,8 @@
+(define (gcd x y)
+    (if (= y 0)
+        x
+        (gcd y (modulo x y))
+    )
+)
+
+(writeln (gcd 999 33))
\ No newline at end of file
diff --git a/Яндринский Влад/README.md b/Яндринский Влад/README.md
new file mode 100644
index 0000000..1ee6b2f
--- /dev/null
+++ b/Яндринский Влад/README.md	
@@ -0,0 +1,6 @@
+# Вычисление НОД
+## Ссылка на видеоразбор
+https://youtu.be/8ulDLp5TqL0
+## Код из книги
+    #let rec gcd x y =
+    if y = 0 then x else gcd y (x mod y);;
\ No newline at end of file