RosettaCodeData/Task/Ordered-words/J/ordered-words.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

5 lines
284 B
Text

require'web/gethttp'
dict=: gethttp'http://www.puzzlers.org/pub/wordlists/unixdict.txt'
oWords=: (#~ ] = /:~L:0) <;._2 dict-.CR
;:inv (#~ (= >./)@:(#@>))oWords
abbott accent accept access accost almost bellow billow biopsy chilly choosy choppy effort floppy glossy knotty