#Dominik Gozdziuk
#Sortowanie babelkowe
#www.algorytm.org

#! /user/bin/perl

#Procedura sortujaca tablice
sub b_sort {
        $j = 1;
        do {
                $zmiana = 0;
                for ($i = $#_; $i >= $j; $i--) {
                        if ($_[$i] < $_[$i-1]) {
                                $temp = $_[$i];
                                $_[$i] = $_[$i-1];
                                $_[$i-1] = $temp;
                                $zmiana = 1;
                        }
                }
                ++$j;
        } while ($zmiana == 1);
}

@tab = ();
#Pobranie rozmiaru tablicy
print "Podaj rozmiar tablicy: ";
$n = <STDIN>;
chomp($n);

#Pobranie elementow tablicy
for ($i = 0; $i < $n; $i++) {
        print "Podaj liczbe: ";
        $tab[$i] = <STDIN>;
        chomp($tab[$i]);
}

&b_sort(@tab); #Wywolanie procedury z tablica jako parametr

print "Tablica posortowana: ";
foreach $zmienna (@tab) {
        print "$zmienna  ";
}

print "\n";