stretch-tree ( max-depth -- )

Vocabulary

benchmark.binary-trees

Inputs

max-depth

an object

Outputs

None

Definition

USING: io kernel math math.parser ;

IN: benchmark.binary-trees

: stretch-tree ( max-depth -- )
    1 + 0 over bottom-up-tree item-check
    [ "stretch tree of depth " write number>string write ]
    [ "\t check: " write number>string print ] bi* ; inline