fork(5) download
copy 
  1. use List::Util 'sum';
  2.  
  3. sub X{for$c(sort@_){@r=map{$_,[@$_,$c]}@r,[]}grep{!$f{"@$_"}++&&10==sum@$_}@r}
  4.  
  5. use Data::Dumper;
  6. @r=X(1,3,4,5,3,3,7,2,7,10);
  7. $_=Dumper(\@r);
  8. s/\s+//g;
  9. print
Success #stdin #stdout 0.01s 7748KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
$VAR1=[[3,7],[3,3,4],[2,3,5],[10],[1,4,5],[1,3,3,3],[1,2,7],[1,2,3,4]];
https://ideone.com/UL9YWj
language:
Perl (perl 5.28.1)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!