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 .

Annotation: 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

Summary:
Author:
Mode:
Body: