PI ( seq quot -- n )

Vocabulary

project-euler.190.private

Inputs

seq	an object
quot	an object

Outputs

n

an object

Definition

USING: kernel math sequences ;

IN: project-euler.190.private

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