Post
Procedimiento: 1.- Proceda a crear en Lisp las listas que contengan la información sobre cada letra:
000000000000000000000 000000000000000000000 000000000000000000000 000001111111111100000 000010000000000010000 000100000000000001000 001000000000000000100 001000000000000000100 001000000000000000100 001111111111111111100001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 001000000000000000100 000000000000000000000 000000000000000000000
000000000000000000000 000000000000000000000 000000000000000000000 001111111111111111100 001000000000000000000 001000000000000000000 001000000000000000000001000000000000000000 001000000000000000000 001000000000000000000 001111111111111111100 001000000000000000000 001000000000000000000 001000000000000000000 001000000000000000000 001000000000000000000 001000000000000000000 001111111111111111100 000000000000000000000 000000000000000000000 000000000000000000000
000000000000000000000 000000000000000000000 000000000000000000000 001111111111111111100000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 000000000010000000000 001111111111111111100 000000000000000000000 000000000000000000000 000000000000000000000
000000000000000000000000000000000000000000 000000000000000000000 000000111111111000000 000001000000000100000 000010000000000010000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000010000000000010000 000001000000000100000 000000111111111000000 000000000000000000000000000000000000000000 000000000000000000000
000000000000000000000 000000000000000000000 000000000000000000000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000000100000000000001000 000111111111111111000 000000000000000000000 000000000000000000000 000000000000000000000
Letras que no son vocales pero sirven de prueba en la aplicación:
000000000000000000000 000000000000000000000 000000000000000000000 000111111111111111000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000000111111111111111000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000100000000000000000 000000000000000000000 000000000000000000000 000000000000000000000
000000000000000000000 000000000000000000000 000000000000000000000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000000100000000000001000 000100000000000001000 000100000000000001000 000111111111111111000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000100000000000001000 000000000000000000000 000000000000000000000 000000000000000000000
Nótese que cada vocal cuenta con 9 secciones:
Posteriormente se pasa a un archivo de texto sin formatoy se ajusta para ser capturada en lisp: Para la letra a:
(setq a '((0 (0 0 0 0 0 0 (0 0 0 0 0 0 (0 0 0 0 0 1 (0 0 0 0 1 0 (0 0 0 1 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 1 1 1 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 (0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0...
Regístrate para leer el documento completo.