45 lines
1.1 KiB
Text
45 lines
1.1 KiB
Text
#include <basico.h>
|
|
|
|
#define MAX_LINE 30
|
|
|
|
algoritmo
|
|
|
|
fd=0, filas=0
|
|
word={}, 2da columna={}
|
|
old_word="",new_word=""
|
|
dimensionar (1,2) matriz de cadenas 'result'
|
|
pos=0
|
|
|
|
token.separador'""'
|
|
|
|
abrir para leer("basica/unixdict.txt",fd)
|
|
|
|
iterar mientras ' no es fin de archivo (fd) '
|
|
usando 'MAX_LINE', leer línea desde(fd),
|
|
---copiar en 'old_word'---, separar para 'word '
|
|
word, ---retener--- ordenar esto,
|
|
encadenar en 'new_word'
|
|
|
|
matriz.buscar en tabla (1,new_word,result)
|
|
copiar en 'pos'
|
|
si ' es negativo? '
|
|
new_word,old_word, pegar fila en 'result'
|
|
sino
|
|
#( result[pos,2] = cat(result[pos,2],cat(",",old_word) ) )
|
|
fin si
|
|
|
|
reiterar
|
|
|
|
cerrar archivo(fd)
|
|
|
|
guardar 'filas de (result)' en 'filas'
|
|
#( 2da columna = result[2:filas, 2] )
|
|
fijar separador '","'
|
|
tomar '2da columna'
|
|
contar tokens en '2da columna' ---retener resultado,
|
|
obtener máximo valor,es mayor o igual?, replicar esto
|
|
compactar esto
|
|
|
|
fijar separador 'NL', luego imprime todo
|
|
|
|
terminar
|