Ordered words: Difference between revisions

Ordered words (view source)

5 bytes added , 1 year ago

m

→‎{{header|J}}: url for unixdict.txt had changed, and it's probably more polite to use a locally cached copy

6,962

edits

Revision as of 00:05, 15 July 2022 (view source) Eliasen (talk \| contribs) (Frink) ← Older edit		Revision as of 13:02, 15 July 2022 (view source) Rdm (talk \| contribs) m (→‎{{header\|J}}: url for unixdict.txt had changed, and it's probably more polite to use a locally cached copy) Newer edit →
Line 2,429: =={{header\|J}}== <lang j>NB. from http://wiki.puzzlers.org/pub/wordlists/unixdict.txt ~~<lang j> require'web/gethttp'~~ ~~dict~~oWords=: ~~gethttp'http:~~(#~ ] = /~~/www~~:~L:0) cutLF CR-.~~puzzlers.org/pub/wordlists/~~~fread 'unixdict.txt' ~~oWords=~~;:inv (#~ ] (= >./)@:~~~L:0~~(#@>)) ~~<;._2 dict-.CR~~oWords ~~;:inv (#~ (= >./)@:(#@>))oWords~~ abbott accent accept access accost almost bellow billow biopsy chilly choosy choppy effort floppy glossy knotty</lang> Recap: # ~~fetch~~read dictionary (<code>~~dict~~CR-.~fread 'unixdict.txt'</code>) # break into words, one per line (<code>~~<;._2 dict-.CR~~cutLF</code>) # find ordered words (<code>~~oWords~~(#~ ] = /:~L:0)</code>) # select the longest ordered words (<code>(#~ (= >./)@:(#@>))oWords</code>) # format for display (using ;:inv)