rbst.ps

% Random binary search tree
%
% Written by Marcel Goh on 4 April 2020.

% NUM_NODES, RAND, and SCALE factor
% change these to produce different trees
100 83144963 0.4 INIT_PARAMS

0 1 NUM_NODES 1 sub {
    /i exch def
    KEY i UNI put
} for

MAKE_BST

% initialise root and run
XARR 0 300 put
YARR 0 100 put
THETA 0 0 put
0 RUN

DEBUG_PRINT

showpage