Paste: Nastiest words
| Author: | mvr |
|---|
| Mode: | factor |
|---|
| Date: | Wed, 14 Jan 2009 03:04:16 |
|---|
Plain Text |
USING: accessors assocs kernel prettyprint sequences sorting vocabs ;
IN: nasty
: word-lengths ( -- assoc )
all-words [ dup def>> length ] { } map>assoc ;
: nastiest-words ( -- seq )
word-lengths sort-values reverse 20 head ;
nastiest-words .
| Author: | mvr |
|---|
| Mode: | factor |
|---|
| Date: | Wed, 14 Jan 2009 03:05:13 |
|---|
Plain Text |
{
{ define-array 263 }
{ define-direct-array 133 }
{ alternate-nodes 104 }
{ julian-day-number>date 93 }
{ apply-non-memo-rule 73 }
{ add-simple-entry 72 }
{ julian-day-number 62 }
{ build-image 58 }
{ concatenate-nodes 56 }
{ loop-step 54 }
{ infer-get-local 49 }
{ 'repetition' 44 }
{ overflow-template-tail 43 }
{ overflow-template 41 }
{ copy-bitmap 41 }
{ <live-search> 40 }
{ (rfc822>timestamp) 38 }
{ advanced-settings 38 }
{ (cookie-string>timestamp-1) 37 }
{ update-vars 37 }
}
New Annotation