;;;
;;; casita.scm
;;; Programa para dibujar una casa en SCHEME
;;; por Diana Paola_at_Uniandes 10/19/2005
;;;
(define (cuadrado lado)
(do ((i 0 (+ i 1)))
((= i lado))
(do ((j 0 (+ j 1)))
((= j lado))
(display "*")(espacio))
(newline)))
(define (espaciodos num)
(do ((i 0 (+ i 1)))
((= i num))
(espacio)))
(define (casa techo pared)
(do((i 0 (+ i 1 )))
((= i techo))
(espaciodos (- techo (+ i 1)))
(do ((j 0 (+ j 1)))
((= j (+ i 1)))
(display "*")(espacio))
(newline))
(cuadrado pared))
;;;
;;;
|