Select Code to Download

id   0  1  2  3  4  5
...
3|  -2, 2, 1, 7,-3, 0
4|   0,-3,-3,-3, 8,-3
5|  -1, 1, 5, 0,-3, 9

let k = 3 then
 3,4,5  -> score 7+8+9 = 24 > 17
 0,1,2  -> score 4+5+6 = 15 < 17

 2->5 = 5
 3->3 = 7
 4->4 = 8

so 2,3,4 -> 5,3,4 = 5+7+8 = 20 > 17

#!/usr/bin/perl

...
      }
   }
}

score(2->5) < score(2->2)

my $k = 3;
...
}
=cut