binary-entropy ( p -- h )

Vocabulary

math.statistics

Inputs

p

an object

Outputs

h

an object

Definition

USING: kernel math math.functions ;

IN: math.statistics

: binary-entropy ( p -- h )
    [ dup log * ] [ 1 swap - dup log * ] bi + neg 2 log / ;