Help for this page

Select Code to Download

Select or download this

P:\test>336795 -N=4

...
BUK   3759/s 11020%  4088%  3289%  2567%  2067%  2026%  1668%  1480%  
+   --

370000 - 370000 - 370000 - 370000 - 370000 - 370000 - 370000 - 370000 
+- 370000

Select or download this

#!/usr/bin/perl -s
use strict;
...
{
  return str1[0] == str2[0] ? 1 : 0;
}