Quicksort in Perl - #172579 (Allgemeines zu Perl)

hlubenow

2013-12-12 17:27

User since
2009-02-22
875 Artikel
BenutzerIn
[default_avatar]

Guest perlnoob96
Hat bis jetzt auch relativ einfach funktioniert. Allerdings stehe ich jetzt vor dem Problem, das sich das Programm immer wieder aufhängt, bzw die Zahlen nicht richtig Sortiert.

Haha, das (den Widerspruch) finde ich lustig!

In Perl muß man sich eigentlich gar nicht mit so'nem Lowlevel-Kram beschäftigen, daher (nicht ganz ernst gemeint):

Code (perl): (dl )

#!/usr/bin/perl
use warnings; use strict;

my @a = qw(6 3 1 4 2 5);
@a = sort(@a);
foreach my $i (@a) {print "$i\n";}