renderorange / list-uniq Goto Github PK

#!/usr/bin/perl

use strict;
use warnings;
use List::Uniq 'uniq';
use Memory::Usage;

my $count = 1000;
my $flatten = shift;

my $mu = Memory::Usage->new;

$mu->record("before");
for(0 ... $count)
{
   my @list = ((1 ... 2000),(1000 ... 3000));
   my @uniq = uniq({flatten => $flatten},@list);
}

$mu->record("after $count runs of uniq");
$mu->dump;