Help for this page

Select Code to Download


  1. or download this
    @out = grep $sd[$_] ne $sd[1+$_], 0 .. $#sd;
  2. or download this
    my $prev;
@out = grep "$prev" ne ($prev = $_), sort @sd; # not for production co
+de