33 lines
711 B
Text
33 lines
711 B
Text
#include <basico.h>
|
|
|
|
#define MAX_LINE 30
|
|
|
|
algoritmo
|
|
|
|
fd=0
|
|
word={}, result={}
|
|
old_word="",new_word=""
|
|
|
|
fijar separador (NULO)
|
|
|
|
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'
|
|
|
|
new_word, meter según (#(old_word == new_word), result)
|
|
|
|
reiterar
|
|
|
|
cerrar archivo(fd)
|
|
|
|
result ---retener---, obtener largo ---retener---
|
|
obtener máximo valor, es mayor o igual?, replicar esto
|
|
compactar esto
|
|
|
|
fijar separador 'NL', luego imprime todo
|
|
|
|
terminar
|