Help for this page

Select Code to Download


  1. or download this
        keys%{map{$_=>1}@list}
  2. or download this
        keys%{map $_,0, @list}
  3. or download this
        keys%{map$_=>0,@list}
  4. or download this
        keys%{map$_ x2,@list}
  5. or download this
        keys%{map ($_)x2,@list}
  6. or download this
        keys%{map+($_)x2,@list}
  7. or download this
        do{my%h;grep!$h{$_}++,@list}
  8. or download this
        sub{my%h;grep!$h{$_}++,@_}->(@list)
  9. or download this
        keys%{@list[...]}
  10. or download this
        keys%{@x[0..$#x,1..$#x]}
  11. or download this
        keys%{@x,reverse@x}