#!/usr/bin/perl
# bst_randdata.pl - Don Yang (uguu.org)
# Generate random data for bst.pl and bst.c
#
# 03/10/04


use strict;
my ($i, $op, $keysize);

$keysize = 10000;
for($i = 0; $i < 30000; $i++)
{
   $op = int ((rand 6) + 1);
   if( $op == 1 )
   {
      print "1 ", int(rand $keysize), " ", int(rand 10000), "\n";
   }
   elsif( $op == 2 )
   {
      print "2 ", int(rand $keysize), " 0\n";
   }
   elsif( $op == 3 )
   {
      print "3 0 $i\n";
   }
   else
   {
      print "$op ", int(rand $keysize), " 0\n";
   }
}
print "0 0 0\n";