s ( p1 p2 -- s )

Vocabulary

project-euler.134.private

Inputs

p1	an object
p2	an object

Outputs

s

an object

Definition

USING: arrays kernel math.algebra project-euler.134 ;

IN: project-euler.134.private

: s ( p1 p2 -- s )
    over 0 2array rot next-power-of-10 rot 2array
    chinese-remainder ;