minimal-x ( D -- x )

Vocabulary

project-euler.066

Inputs

D

an object

Outputs

x

an object

Definition

USING: kernel math math.functions ;

IN: project-euler.066

:: minimal-x ( D -- x )
    D sqrt floor >integer :> p0 p0 sq D - :> m0 D p0 p0 1 m0
    [ dup 1 = ] [ chakravala ] do until 2drop 2nip ;