steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add collect-values to histogram

db4
Doug Coleman 2009-06-26 21:46:59 -05:00
parent c44df7832c
commit 9fd65ad324
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/histogram/histogram.factor
View File

@ -1,6 +1,6 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel sequences assocs ; USING: kernel sequences assocs fry ;
IN: histogram IN: histogram
<PRIVATE <PRIVATE
@ -24,3 +24,6 @@ PRIVATE>
: histogram ( seq -- hashtable ) : histogram ( seq -- hashtable )
[ inc-at ] sequence>hashtable ; [ inc-at ] sequence>hashtable ;
: collect-values ( seq quot: ( obj hashtable -- ) -- hash )
'[ [ dup @ ] dip push-at ] sequence>hashtable ; inline