barrett-mu ( n size -- mu )


Vocabulary
crypto.barrett

Inputs
nan object
sizean object


Outputs
muan object


Definition
USING: kernel math math.functions ;

IN: crypto.barrett

: barrett-mu ( n size -- mu )
[ [ log2 1 + ] [ / 2 * ] bi* ] [ 2^ rot ^ swap /i ] 2bi ;