YAPC::EU 2018 Glasgow Update!

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

@@ -5,15 +5,13 @@ 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
+    term$ = EXTRACT$(SORT$(EXPLODE$(word$, 1)), " ")
 
     IF word$ = term$ THEN
-        IF length > MaxLen THEN
-            MaxLen = length
+        IF LEN(term$) > MaxLen THEN
+            MaxLen = LEN(term$)
             result$ = word$
-        ELIF length = MaxLen THEN
+        ELIF LEN(term$) = MaxLen THEN
             result$ = APPEND$(result$, 0, word$, NL$)
         END IF
     END IF