#!/usr/bin/perl

use strict;
use warnings;

use Sort;

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

$length = 100;

for my $i (0 .. $length - 1)
  {
    push(@numbers, rand());
  }

#Sort::insertion_sort(\@numbers);
#Sort::selection_sort(\@numbers);
Sort::quick_sort(\@numbers);

Sort::check_sorted(\@numbers);
print(join(" ", @numbers), "\n");

