| To get the same effect as | Use |
|---|---|
| (stack-copies-of 3 rcross-bb) | (together-copies-of stack 3 rcross-bb) |
| (power 2 5) | (together-copies-of * 5 2) |
Now we can redefine stack-copies-of and power to use together-copies-of:
(define stack-copies-of
(lambda (quantity image)
(together-copies-of stack quantity image)))
(define power
(lambda (base exponent)
(together-copies-of * exponent base)))
Q: What's the use?
A: If together-copies-of is ever changed or improved, both stack-copies-of and power benefit.