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 [ * ] curry [ [ first2 ] ] dip
    [ [ + ] bi* ] curry compose bi@ /i ;