Select Code to Download

my @sentences = map { [ split ] } <>;

my @uniq;
$uniq[ $_ ] = { map{ $_ => 1} @{ $sentences[ $_ ] } } for 0 .. $#sente
+nces;

my( @aFragments, @bFragments );
for my $ai ( 0 .. $#sentences ) {
...
        ## process sentence[ $ai ] against sentences[ $bi ]
    }
}

sub fragmentSentence {
    my( $sa, $ub ) = @_;
...
       $a;
    } [[]], @{ $sa };
}

        ## if there are no common words between the sentences, exit ea
+rly
        next unless first{ exists $ua->{ $_ } } keys %{ $ub };
...
         
        ## Output the sentence numbers and the best LCWS we found.
        printf "( %4d / %4d )=>[ %s ]\n", $ai, $bi, join( ' ', @best )
+;

#! perl -slw
use strict;
...
        printf "( %4d / %4d )=>[ %s ]\n", $ai, $bi, join( ' ', @best )
+;
    }
}