8 lines
226 B
Text
8 lines
226 B
Text
def 'str is-ordered' [] {
|
|
split chars | window 2 | all { $in.0 <= $in.1 }
|
|
}
|
|
|
|
open 'unixdict.txt' | lines
|
|
| group-by { str length } | sort -n -r
|
|
| values | each { filter { str is-ordered } }
|
|
| skip while { is-empty } | first
|