#!/usr/bin/perl -w

# Una possibile implementazione per il quicksort

use strict;
my(@arrayInt, @tot);

@arrayInt = (4, 2, 5, 1, 5, 6);

sub partition {
    my ($pivot, @list, $x, @minori, @maggiori);
    ($pivot, @list) = @_; 
    foreach $x (@list) {
        if ($x < $pivot) {
            @minori = (@minori, $x);
        }
        else {
            @maggiori = (@maggiori, $x);
        }
    }
    return (\@minori, \@maggiori);
}

sub quicksort {
    my ($min, $mag);
    if (@_ <= 1) {
        return @_
    }
    ($min, $mag) = partition(@_);
    return (quicksort(@$min), $_[0], quicksort(@$mag)); 
}

@tot = quicksort(@arrayInt);

print "maggiori: @tot\n";