extract ( z x -- n )

Vocabulary

benchmark.pidigits

Inputs

z	an object
x	an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: benchmark.pidigits

: extract ( z x -- n )
    [ first2 ] dip '[ first2 [ _ * ] [ + ] bi* ] bi@ /i ;