Select Code to Download

use List::Util 'reduce';

sub uniq {
    return @{;reduce {ref $a or $a=[$a]; push @$a, $b if $b ne $a->[-1
+]; $a} @_};
};

sub uniq {
    return @_ ? @_[0, grep {$_[$_] ne $_[$_-1]} 1..$#_] : ();
};