histogram-diff ( hashtable1 hashtable2 -- hashtable3 )

Vocabulary

assocs.extras

Inputs

hashtable1	an object
hashtable2	an object

Outputs

hashtable3

an object

Definition

USING: assocs kernel math ;

IN: assocs.extras

: histogram-diff ( hashtable1 hashtable2 -- hashtable3 )
    [ neg swap pick at+ ] assoc-each [ 0 > ] filter-values ;