next ( t -- new-t s )


Vocabulary
project-euler.150.private

Inputs
tan object


Outputs
new-tan object
san object


Definition
USING: kernel math ;

IN: project-euler.150.private

: next ( t -- new-t s )
615949 * 797807 + 20 2^ rem dup 19 2^ - ; inline