Select Code to Download

sub ikei {
  my ($n, $m) = @_;
...
  my $r = $n % $m;
  return ($q+1) x $r, ($q) x ($m-$r);
}

       Rate  ike ikei
ike  50.8/s   --  -4%
...
       Rate  ike ikei
ike  50.5/s   --  -5%
ikei 52.9/s   5%   --