You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
510 B
27 lines
510 B
2 years ago
|
|
||
|
|
Exercise 5.4: Specify register machines that
|
||
|
|
implement each of the following procedures. For each machine, write a
|
||
|
|
controller instruction sequence and draw a diagram showing the data paths.
|
||
|
|
|
||
|
|
|
||
|
|
Recursive exponentiation:
|
||
|
|
|
||
|
|
|
||
|
|
(define (expt b n)
|
||
|
|
(if (= n 0)
|
||
|
|
1
|
||
|
|
(* b (expt b (- n 1)))))
|
||
|
|
|
||
|
|
Iterative exponentiation:
|
||
|
|
|
||
|
|
|
||
|
|
(define (expt b n)
|
||
|
|
(define (expt-iter counter product)
|
||
|
|
(if (= counter 0)
|
||
|
|
product
|
||
|
|
(expt-iter (- counter 1)
|
||
|
|
(* b product))))
|
||
|
|
(expt-iter n 1))
|
||
|
|
|
||
|
|
|