do-loops

    3La chaleur

    1Répondre

    La procédure suivante est valable dans les deux r6rs régime et Racket: ;; create a list of all the numbers from 1 to n (define (make-nums n) (do [(x n (- x 1)) (lst (list) (cons x lst))] ((