tak ( x y z -- t )

Vocabulary

benchmark.recursive

Inputs

x	an object
y	an object
z	an object

Outputs

t

an object

Definition

USING: kernel math ;

IN: benchmark.recursive

: tak ( x y z -- t )
    2over <=
    [ 2nip ] [
        [ rot 1 - -rot tak ] [ -rot 1 - -rot tak ]
        [ 1 - -rot tak ] 3tri tak
    ] if ; inline recursive