08/08/25 21:48:50
>>324
一応、自己（嫌悪）レス。
sub round{ my $t = chop ( my $i = shift ) ; ( $i || 0 ) * 10 + ( $t < 5 ? 0 : 10 ) ; }
08/08/25 21:48:50
>>324
一応、自己（嫌悪）レス。
sub round{ my $t = chop ( my $i = shift ) ; ( $i || 0 ) * 10 + ( $t < 5 ? 0 : 10 ) ; }
08/08/25 21:48:50
>>324
一応、自己（嫌悪）レス。
sub round{ my $t = chop ( my $i = shift ) ; ( $i || 0 ) * 10 + ( $t < 5 ? 0 : 10 ) ; }