wikipediaのCのサンプルをPerlに起こした感じのやつ。 無駄に再帰回数が多い気がしなくもない。 どっか間違ったかも。 #!/usr/bin/env perl use strict; use warnings; my @a = (3, 2, 0, 5, 8, 3, 4, 1, 3, 2); my @b = @a; qs(\@b, 0, $#b); print @a, "\n…