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

2022-05-12 19:09:39 +03:00
parent df8f21a07b
commit 98447f2cf7
2 changed files with 12 additions and 0 deletions
--- 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)))))