Help for this page

Select Code to Download


  1. or download this
    $ perl -e '
    my %seen;
...
    print "@values\n";
' 1 2 1 2 3 1 2 3
1 2 3
  2. or download this
    $ perl -E '
    local $, = " ";
    say grep {state $seen; !$seen->{$_}++} @ARGV;
' 1 2 1 2 3 1 2 3
1 2 3
  3. or download this
    $ perl -E 'say "@{[grep {state $seen; !$seen->{$_}++} @ARGV]}";' 1 2 1
+ 2 3 1 2 3
1 2 3