From 98447f2cf71963574ef3b18d97373cca52580405 Mon Sep 17 00:00:00 2001
From: Dmitriy Gorshenin <dmitriy.gorshenin@gmail.com>
Date: Thu, 12 May 2022 19:09:39 +0300
Subject: [PATCH] =?UTF-8?q?=D0=92=D0=BE=D0=B7=D0=B2=D0=B5=D0=B4=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=B8=D0=B5=20=D0=B2=20=D1=81=D1=82=D0=B5=D0=BF=D0=B5?=
 =?UTF-8?q?=D0=BD=D1=8C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Костин Андрей/README.md | 8 ++++++++
 Костин Андрей/power.rkt | 4 ++++
 2 files changed, 12 insertions(+)
 create mode 100644 Костин Андрей/README.md
 create mode 100644 Костин Андрей/power.rkt

diff --git a/Костин Андрей/README.md b/Костин Андрей/README.md
new file mode 100644
index 0000000..cd30458
--- /dev/null
+++ b/Костин Андрей/README.md	
@@ -0,0 +1,8 @@
+# Вычисление степени
+## Ссылка на видеоразбор
+https://youtu.be/4LgMiXXWyE4
+## Код из книги
+    #let rec exp x n =
+        if n = 0 then 1
+        else x * exp x (n - 1);;
+        
\ No newline at end of file
diff --git a/Костин Андрей/power.rkt b/Костин Андрей/power.rkt
new file mode 100644
index 0000000..e3e7079
--- /dev/null
+++ b/Костин Андрей/power.rkt	
@@ -0,0 +1,4 @@
+#lang racket
+(define (power n m)
+  (if (= m 0) 1
+      (* n (power n (- m 1)))))
\ No newline at end of file