September 2017 Update

Task/Ordered-words/BaCon/ordered-words.bacon

@@ -0,0 +1,22 @@
+'Ordered words - improved version
+OPTION COLLAPSE TRUE
+
+list$ = LOAD$("unixdict.txt")
+
+FOR word$ IN list$ STEP NL$
+
+    SPLIT word$ BY 1 TO letter$ SIZE length
+    SORT letter$ SIZE length
+    JOIN letter$ BY "" TO term$ SIZE length
+
+    IF word$ = term$ THEN
+        IF length > MaxLen THEN
+            MaxLen = length
+            result$ = word$
+        ELIF length = MaxLen THEN
+            result$ = APPEND$(result$, 0, word$, NL$)
+        END IF
+    END IF
+NEXT
+
+PRINT result$