(bernoulli) ( p -- n )

Vocabulary

math.extras.private

Inputs

p

an object

Outputs

n

an object

Definition

USING: kernel math math.combinatorics math.extras sequences ;

IN: math.extras.private

: (bernoulli) ( p -- n )
    [ <iota> ] [ 1 + ] bi
    [ 0 [ [ nCk ] [ bernoulli * ] bi + ] with reduce ] keep
    recip neg * ;