sicp 2.5

sicp_2_5

(define (cons x y)
  (* (expt 2 x) (expt 3 y)))

(define (factor base value)
  (define (factor-iter value counter)
    (if (= (remainder value base) 0)
        (factor-iter (/ value base) (+ counter 1))
        counter))
  (factor-iter value 0))

(define (car pair)
  (factor 2 pair))
(define (cdr pair)
  (factor 3 pair))

(cons 1 2)
(car (cons 1 2))

(car (cons 3 5))

(cdr (cons 1 2))

(cdr (cons 3 5))