Paste: histogram and stuff
Author: | erg |
Mode: | factor |
Date: | Fri, 12 Jun 2009 21:04:10 |
Plain Text |
: (sequence>assoc)
[ swap curry each ] keep ; inline
: sequence>assoc*
rot (sequence>assoc) ; inline
: sequence>assoc
clone (sequence>assoc) ; inline
: sequence>hashtable
H{ } sequence>assoc ; inline
: histogram*
[ inc-at ] sequence>assoc* ;
: histogram
[ inc-at ] sequence>hashtable ;
: collect-values*
[ dupd push-at ] sequence>assoc* ;
: collect-values
[ dupd push-at ] sequence>hashtable ;
clear "asdfsadfasdf" collect-values "asasfasdfasdfasdfasdfasdfasdfasdfadsfsadfasdf" collect-values*
New Annotation