Re^5: Near equal partitions.

There's benchmarking code elsewhere in the thread. It should be easy to add a 'use integer' case.

Comment on Re^5: Near equal partitions.

Replies are listed 'Best First'.
Re^6: Near equal partitions. by happy.barney (Friar) on Jan 14, 2011 at 11:42 UTC
with that code `sub ikei { my ($n, $m) = @_; use integer; my $q = $n / $m; my $r = $n % $m; return ($q+1) x $r, ($q) x ($m-$r); }` [download] `Rate ike ikei ike 50.8/s -- -4% ikei 52.8/s 4% -- Rate ike ikei ike 50.5/s -- -5% ikei 52.9/s 5% --` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^6: Near equal partitions.
by happy.barney (Friar) on Jan 14, 2011 at 11:42 UTC

sub ikei {
  my ($n, $m) = @_;
  use integer;
  my $q = $n / $m;
  my $r = $n % $m;
  return ($q+1) x $r, ($q) x ($m-$r);
}
[download]

       Rate  ike ikei
ike  50.8/s   --  -4%
ikei 52.8/s   4%   --

       Rate  ike ikei
ike  50.5/s   --  -5%
ikei 52.9/s   5%   --
[download]