Programmation déclarative - Q2AB - 06/2012

;--- A
(define (do2 test body)
  (begin
    (body)
    (if (test)
        (void)
        (do2 test body)
        )
    )
  )

;--- B
(let
    ((x 1)
     (y 1))
  (do2
   (lambda () (> x 10))
   (lambda ()
      (begin
      (do2
       (lambda () (> y 10))
       (lambda ()
         (begin
           (display (* x y))
           (display " ")
           (set! y (+ y 1))
           )
         ))
      (set! y 1)
      (set! x (+ x 1))
      (display "\n")
      )
      )
   )
  )