Help for this page

Select Code to Download

Select or download this

sub insert {
  my $trie=shift;
...
my %trie;
insert(\%trie,$_) foreach qw(model4run1 model2run1 model4run2 model1ru
+n1);
print common(\%trie);