Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    170 :  43562 (4.356%)
    180 :  41775 (4.178%)
    190 :  39533 (3.953%)
    
  2. or download this
    sub score {
        my( $result ) = @_;
        return 1 / abs( ( TARGET - $result ) || 1 );
    }
    
  3. or download this
    c:\test>867119-test.pl
     10 :   7211 (0.721%)
    ...
    170 :   9298 (0.930%)
    180 :   7958 (0.796%)
    190 :   7069 (0.707%)