Select Code to Download

#! perl -slw
use strict;
...
    print "@$a2 := ", $t2;
    print "Diff: ", abs( $t1 - $t2 );
}

c:\test>708290.pl

...
248 28 269 882 847 389 242 192 484 519 123 259 528 363 410 722 110 34 
+501 922 695 622 831 48 464 234 548 815 702 725 403 629 29 579 365 81 
+294 47 927 879 639 470 902 318 313 736 228 230 750 38 620 77 702 426 
+582 := 25020
923 457 738 7 847 234 696 334 200 989 231 744 528 402 619 485 791 272 
+261 533 525 298 724 615 253 71 957 836 904 105 575 929 537 802 791 94
+1 437 538 740 165 229 528 867 609 753 := 25020
Diff: 0