4 lines
80 B
Racket
4 lines
80 B
Racket
#lang racket
|
|
(define (power n m)
|
|
(if (= m 0) 1
|
|
(* n (power n (- m 1))))) |