Data update

Task/Ordered-words/Amazing-Hopper/ordered-words.hopper

@@ -0,0 +1,33 @@
+#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