#!/usr/bin/perl

use POSIX qw /floor/;
use Math::Random;

if ($#ARGV != 0) {
  print "Usage:  gen_samples.pl n\n";
  exit;
}

$n = $ARGV[0];

open IN, "labeled";
@lines = <IN>;

for($i=1; $i<=$n; $i++) {
  open OUTPUT, '>', "train_" . $i;
  for($j=0; $j <= $#lines; $j++) {
    $bit[$j] = 0;
  }
  for($j=0; $j <= $#lines; $j++) {
    $r = floor(random_uniform()*($#lines+1));
    $bit[$r] = 1;
    print OUTPUT $lines[$r];
  }
  close OUTPUT;
  open OUTPUT, '>', "test_" . $i;
  for($j=0; $j <= $#lines; $j++) {
    if($bit[$j] == 0) {
      print OUTPUT $lines[$j];
    }
  }
  close OUTPUT;
}
