factor-2s ( n -- r s )

Vocabulary

math.functions

Inputs

n

an object

Outputs

r	an object
s	an object

Definition

USING: kernel math ;

IN: math.functions

: factor-2s ( n -- r s )
    dup 0 =
    [ 1 ]
    [ [ 0 ] dip [ dup even? ] [ [ 1 + ] [ 2/ ] bi* ] while ] if
    ; inline