use Memchmark 'cmpthese';

use sort '_quicksort';

cmpthese( none => sub {
             my @a = map { int rand 100 } 1..1000000;
          },
          sort_num => sub {
             my @a = map { int rand 100 } 1..1000000;
             @a = sort { $a<=> $b } @a
          },
          sort_str => sub {
             my @a = map { int rand 100 } 1..1000000;
             @a = sort { $a cmp $b } @a
          },
          sort_str_workaround => sub {
             my @a = map { int rand 100 } 1..1000000;
             my ($c, $d);
             @a = sort { ($c, $d) = ($a,$b); $c cmp $d } @a
          }
        );

__END__

test: none,                memory used:  3997696 bytes
test: sort_num,            memory used:  3997696 bytes
test: sort_str,            memory used: 68202496 bytes
test: sort_str_workaround, memory used:  3997696 bytes