Condicionales para Programación con lingüística :

Los siguientes son ejemplos de condicionales que pueden servir para construir una base de conocimientos según las reglas, sintaxis del lenguaje que se este creando. Cargar éstos programas y entender los algoritmos.

1. ¿ Número, positivo o negativo ?

   
    		 
    
   
   (define tipo-de-numero
     (lambda (A)
       (cond ((< A 0) "el numero es negativo")
   	  ((> A 0) "el numero es positivo")
   	  (else    "este numero es cero")
   	  )
       )
     )
   
   
   Llamar la función 'tipo-de-numero' con:

   
    		 guile> (tipo-de-numero -1)       
   
2. Definimos la función 'dado' para el siguiente ejemplo:

   
    		 
    
   (define dado
     (lambda ()
       (1+ (random 6))))
   
   

   
    		 guile> (dado)       
   
3. Una buena idea a éstas alturas es analizar el algoritmo con papel y lápiz.

4. Otro ejemplo para analizar con papel y lápiz, éste utiliza el programa del dado más la función'cond' para determinar que acción debe tomar:

   
    		 
    
   (define direccion
     (lambda ()
       (define x 0)
       (set! x (dado))
       (cond ((= x 1) (display " direccion alpha "))
             ((= x 2) (display " direccion bravo "))
             ((= x 3) (display " direccion charlie "))
             ((= x 4) (display " no despegue "))
             ((= x 5) (display " tome direccion alpha bravo "))
             (else (display " espere otro anuncio "))
             )
       (newline) ))
   
   
   Llamar con:

   
    		 guile>  (direccion)       
   
5. Un ejemplo más con el sabor de los programas anteriores,

   
    		 
    
   (define sorties
     (lambda (aviones)
       (do ((i 0 (+ i 1)))
         ((= i aviones) )
       (direccion))))
   
   

   
    		 guile> (sorties 4)