SICP Exercise 3.30

Question

Figure 3.27 shows a ripple-carry adder formed by stringing together $n$ full-adders. This is the simplest form of parallel adder for adding two $n$-bit binary numbers. The inputs $A_1,A_2,A_3,\dots ,A_n$ and $B_1,B_2,B_3,\dots ,B_n$ are the two binary numbers to be added (each $A_k$ and $B_k$ is a 0 or a 1). The circuit generates $S_1,S_2,S_3,\dots ,S_n$, the $n$ bits of the sum, and $C$, the carry from the addition.

Write a procedure ripple-carry-adder that generates this circuit. The procedure should take as arguments three lists of $n$ wires each – the $A_k$, the $B_k$ and the $S_k$ – and also another wire $C$. The major drawback of the ripple-carry adder is the need to wait for the carry signals to propagate. What is the delay needed to obtain the complete output from an $n$-bit ripple-carry-adder, expressed in terms of the delays for and-gates, or-gates, and inverters?

Answer

I have to use mcar and mcdr here because of some workarounds that were needed to get the circuit simulator to work. They basically do the same thing as car and cdr.

copy(define (ripple-carry-adder a b s c)
  (if (null? a)
      (begin (set-signal! c 0) c)
      (begin
        (full-adder
         (mcar a)
         (mcar b)
         (ripple-carry-adder
          (mcdr a)
          (mcdr b)
          (mcdr s)
          (make-wire))
         (mcar s)
         c)
        c)))