#!/usr/bin/perl

use Sort;

use strict;
use warnings;

my (@numbers, $size, $i);

$size = 1000000;
# @numbers = (-5, 6, -90, 10, 4);
foreach $i (0 .. $size - 1)
  {
    push(@numbers, rand());
  }

#Sort::insertion_sort(\@numbers);
#Sort::selection_sort(\@numbers);
#Sort::merge_sort(\@numbers);
Sort::quick_sort(\@numbers);
#print("Sorted numbers are ", join(" ", @numbers), "\n");
Sort::check_sorted(\@numbers);

__END__


