Manipulación de Símbolos

• En caso de tener que corregir éstos programas o para escribir otros basados en éstos ejemplos por simple conveniencia se recomienda utilizar un editor de texto. Hay varios editores de texto tanto en Linux como en OS-X. De hecho hay de todos los colores, sabores y para todos los gustos. Sin embargo a diferencia de los procesadores de palabra algunos editores ayudan a corregir y buscar errores en programas que se están escribiendo. Quizá el mas utilizado por su versatilidad es Emacs. Una versión básica hace parte de OS-X por lo que se recomienda la versión que funciona con X11 o con 'Terminal.app' que puede ser descargada de Fink. Emacs. es parte del paquete de desarrollo en casi todas las distribuciones de Linux.

• Para el siguiente ejemplo se recomienda utilizar un editor de texto y salvar el programa como ´casista.scm'. Leer y analizar te programa. ¿ Cuál es la ventaja de usar funciones en SCHEME ?.

• 
   		 
   
  
  ;;;
  ;;; 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))
  
  ;;;
  ;;;
  
  
• Si 'casita.scm' ha sido salvado en el mismo directorio donde se está corriendo Guile, para correr el programa se siguen los siguientes pasos:
  1. 
      		 guile> (load ``casita.scm'')        
     
  2. 
      		 guile> (casa 12 12)        
     

• Solución:

  
   		 
   
     guile> (casa 12 12)
                * 
               * * 
              * * * 
             * * * * 
            * * * * * 
           * * * * * * 
          * * * * * * * 
         * * * * * * * * 
        * * * * * * * * * 
       * * * * * * * * * * 
      * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * * 
     * * * * * * * * * * * *