maj ( x y z -- x' )

Vocabulary

checksums.sha.private

Inputs

x	an object
y	an object
z	an object

Outputs

x'

an object

Definition

USING: kernel math ;

IN: checksums.sha.private

: maj ( x y z -- x' )
    [ [ bitand ] [ bitor ] 2bi ] dip bitand bitor ; inline