RosettaCodeData/Task/Ordered-words/J/ordered-words.j

6 lines
284 B
Text
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
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