You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
591 B
Racket
19 lines
591 B
Racket
4 years ago
|
; UNFINISHED
|
||
|
|
(define (sqr n)
|
||
|
|
(* n n))
|
||
|
|
|
||
|
|
(define (fast-ext-iter number power product)
|
||
|
|
(cond ((= power 0) product)
|
||
|
|
((even? power) (fast-ext-iter number
|
||
|
|
(/ power 2)
|
||
|
|
(if (= product 1)
|
||
|
|
(sqr number)
|
||
|
|
(sqr product))))
|
||
|
|
(else (fast-ext-iter number
|
||
|
|
(- power 1)
|
||
|
|
(* power product)))))
|
||
|
|
|
||
|
|
(define (fast-ext number power)
|
||
|
|
(fast-ext-iter number power 1))
|
||
|
|
|
||
|
|
(fast-ext 2 8)
|