Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
        print "@$a2 := ", $t2;
        print "Diff: ", abs( $t1 - $t2 );
    }
    
  2. or download this
    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