Help for this page

Select Code to Download


  1. or download this
    $ perl -Mstrict -Mwarnings -le '
    my (@vit_dist, @distance_mat);
...
    print ${$vit_dist[$i-1]}[$j]+${$distance_mat[$i]}[$j];
'
42
  2. or download this
    min(${$vit_dist[$i-1]}[$j], ${$distance_mat[$i]}[$j])