数のリストを合成する。 ex.) (1 2 3 4) ;;=> 1234 (1 0 0 0) ;;=> 1000 (0 0 0 1) ;;=> 1

comp-tup.scm

(define (comp-tup tup)
  (comp-tup-iter tup 0))

(define (comp-tup-iter tup comp)
  (define (pow a b)
    (if (zero? b)
	1
	(* a (pow a (- b 1)))))
  (cond
   ((null? tup) comp)
   (else
    (let ((size (- (length tup) 1)))
      (let ((exp (pow 10 size))
	    (x (car tup)))
	(comp-tup-iter (cdr tup) (+ comp (* x exp))))))))


(comp-tup '(1 2 3 4))