Teacup rim text: Difference between revisions
m
→{{header|Factor}}: more efficient filtering
(→{{header|Factor}}: adapt to changing task requirements) |
m (→{{header|Factor}}: more efficient filtering) |
||
Line 12:
=={{header|Factor}}==
<lang factor>USING: combinators.short-circuit fry grouping hash-sets
http.client kernel math prettyprint sequences sequences.extras
sets sorting splitting ;
IN: rosetta-code.teacup-rim-text
"https://www.mit.edu/~ecprice/wordlist.10000" http-get nip
"\n" split [ { [ length
[ [ all-rotations ] map ] [ >hash-set ] bi
'[ [ _ in? ] all? ] filter [ natural-sort ] map members .</lang>
| |||