PI ( seq quot -- n )


Vocabulary
project-euler.190.private

Inputs
seqan object
quotan object


Outputs
nan object


Definition
USING: kernel math sequences ;

IN: project-euler.190.private

: PI ( seq quot -- n ) [ * ] compose 1 swap reduce ; inline