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

This commit is contained in:
2022-05-12 19:09:39 +03:00
parent df8f21a07b
commit 98447f2cf7
2 changed files with 12 additions and 0 deletions

View File

@@ -0,0 +1,8 @@
# Вычисление степени
## Ссылка на видеоразбор
https://youtu.be/4LgMiXXWyE4
## Код из книги
#let rec exp x n =
if n = 0 then 1
else x * exp x (n - 1);;

View File

@@ -0,0 +1,4 @@
#lang racket
(define (power n m)
(if (= m 0) 1
(* n (power n (- m 1)))))