Programmation déclarative - Q4B - 08/2011

(define (make-roue n)
  (letrec
      ((last (list n))
       (create-list (lambda (m)
                      (if (= m n)
                          last
                          (cons m (create-list (+ m 1)))
                          )
                      )
                    )
       (create-circ (lambda (m)
                      (let
                          ((ring (create-list 1)))
                        (begin
                          (set-cdr! last ring)
                          ring
                          )
                        )
                      )
                    )
       (create-center (lambda (ring size)
                        (if (= size 1)
                            ring
                            (cons ring (create-center (cdr ring) (- size 1)))
                            )
                        )
                      )
       )
    (create-center (create-circ n) n)
    )
  )