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%)