Возведение в степень

2022-05-12 19:09:39 +03:00
parent df8f21a07b
commit 98447f2cf7
2 changed files with 12 additions and 0 deletions
--- a/Андрей/README.md
+++ 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);;
+        
--- a/Андрей/power.rkt
+++ b/Андрей/power.rkt
@@ -0,0 +1,4 @@
+#lang racket
+(define (power n m)
+  (if (= m 0) 1
+      (* n (power n (- m 1)))))