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)))