Cómo separar los dígitos de un número en Prolog

Prolog es un lenguaje de programación lógica en la que declara los hechos y las reglas. Un hecho es una cláusula de una línea que no tiene un cuerpo, mientras que una regla es una cláusula que tiene predicados en su cuerpo que cumple los objetivos . Puede crear estos hechos y reglas y consultarlos para obtener sus resultados. Usted puede escribir una regla que dividir un número en sus dígitos separados dividiendo el número con la función mod y recursiva llamando la regla hasta que haya separado cada dígito. Instrucciones
1

Abra un archivo de texto en blanco. Guardar como " prologSplit.pl " en su computadora
2

Escriba el código siguiente en la primera línea para crear un hecho: .

Split ( 0 , _) < br . >

Este hecho comprueba que ya no se puede separar el número introducido. Cuando el número es igual a cero , la llamada a la función se detendrá. La segunda variable no tiene importancia , de ahí el uso del carácter de subrayado
3

escriba las líneas siguientes para iniciar una nueva regla: .

Split ( M , Z ) : - Opiniones

M> 0 ,

comprobará si la variable "M " es mayor que cero. Si es así , continúe. Esto evitará que el programa se vuelva a repetir en un bucle sin fin
4

Escriba la línea siguiente : .

MM es baja ( M /10 ) ,

Esto crea una variable temporal que se eliminará el último dígito de su variable de entrada y el desprecio de cualquier fracción . Por ejemplo, si la variable de entrada es de 532 , esta línea se realizan 532 dividido por 10, que es 53,2 , pero corta el 0,2 , dejando 53
5

Tipo estas tres líneas siguientes : .

Z es M mod 10 ,

impresión ( Z ) ,

nl ,

el primero será modificar tu número de entrada y guardar el resto en la Z variable. Por ejemplo , " 532 mod 10 " tiene un resto 2 , por lo que Z se convierte en 2 . Las dos líneas siguientes imprimir este apartado dígitos a la pantalla y añade una nueva línea para hacer su producción más fácil de leer
6

Tipo de la última línea de la regla : .

Split ( MM , _) .

recursivamente llame a su gobierno hasta que su número de entrada es igual a cero . Guarde el archivo Prolog .
7

Abra su programa Prolog y cargar el archivo prologSplit.pl . Escriba lo siguiente en la línea de comando y presione ENTRAR:

split ( 532, A)

Prolog se dividirá su número y mostrar cada dígito en una nueva línea
. .