Help for this page

Select Code to Download


  1. or download this
    my $outcome = shift;

my %h = map { $_ => 10 * int ( ( $_ + 4 ) /10 ) } 8 .. 93;
...
@h{98 .. 100} = (99) x 3;

print defined $h{$outcome} ? sprintf "%02d\n", $h{$outcome} : 'ERROR';
  2. or download this
    use POSIX;
my $outcome = ceil( shift );