fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. %h;
  4. while(<>){
  5.  chomp;
  6.  ($f, $s) = split/ /;#first, second
  7.  
  8.  undef $keyf;
  9.  undef $keys;
  10.  
  11.  for $k (keys %h){
  12.   $keyf = $k if grep /$f/, @{$h{$k}};
  13.   $keys = $k if grep /$s/, @{$h{$k}};
  14.  }
  15.  
  16.  if(!defined $keyf and !defined $keys){
  17.   push @{$h{$.}}, $f;
  18.   push @{$h{$.}}, $s;
  19.  }else{
  20.   push @{$h{$keys}}, $f unless defined $keyf;
  21.   push @{$h{$keyf}}, $s unless defined $keys;
  22.  }
  23. }
  24.  
  25. map{print join " ", (sort{$a cmp $b}@{$h{$_}}), "\n"}keys %h;
Success #stdin #stdout 0s 17496KB
comments (?)
stdin
copy 
A B
C D
A C
stdout
copy 
A B 
C D
https://ideone.com/NAvn2f
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!