(define (t) (display "T")) (define (dibuje cant) (do ((i 0 (+ i 1))) ((= i cant) ) (t) (espacio))) (define (triangulo) (do ((i 1 (+ i 1))) ((= i 10) ) (dibuje i) (newline)))
© Copyright 2005-2007, expyeZp- Maginvent.ORG. All Rights Reserved, Todos Los Derechos Reservados.