11 lines
416 B
R
11 lines
416 B
R
|
words = scan("https://web.archive.org/web/20180611003215/http://www.puzzlers.org/pub/wordlists/unixdict.txt",what = "character")
|
||
|
|
|
||
|
|
ordered = logical()
|
||
|
|
for(i in 1:length(words)){
|
||
|
|
first = strsplit(words[i],"")[[1]][1:nchar(words[i])-1]
|
||
|
|
second = strsplit(words[i],"")[[1]][2:nchar(words[i])]
|
||
|
|
ordered[i] = all(first<=second)
|
||
|
|
}
|
||
|
|
|
||
|
|
cat(words[ordered][which(nchar(words[ordered])==max(nchar(words[ordered])))],sep="\n")
|