June 2018 Update

Task/Ordered-words/Maple/ordered-words.maple

@@ -0,0 +1,19 @@
+lst := StringTools:-Split(Import("http://www.puzzlers.org/pub/wordlists/unixdict.txt"), "\n"):
+longest := 0:
+words := Array():
+i := 1:
+for word in lst do
+	if StringTools:-IsSorted(word) then
+		len := StringTools:-Length(word):
+		if len > longest then
+			longest := len:
+			words := Array():
+			words(1) := word:
+			i := 2:
+		elif len = longest then
+			words(i) := word:
+			i++:
+		end if;
+	end if;
+end do;
+for word in words do print(word); end do;