On Mon, May 28, 2012 at 08:39:15AM -0700, Will Coleda via RT wrote:
> So, the original p5 code was:
>
> #!/usr/bin/perl -w
> my $i = 0;
> my @numbers;
> until ( $i == 10 ) {
> $numbers[$i] = $i;
> $i++;
> }
>
> [...]
>
> OP gave the following one-shot benchmark numbers:
>
> Perl5: ~0.07s
So, the original p5 code was:
#!/usr/bin/perl -w
my $i = 0;
my @numbers;
until ( $i == 10 ) {
$numbers[$i] = $i;
$i++;
}
p6 code was:
use v6;
my Int $i = 0;
my @numbers;
until ( $i == 10 ) {
@numbers[$i] = $i;
$i++;
}
OP gave the following one-shot benchmark numbers:
Perl5: ~0.
On Mon, May 28, 2012 at 8:29 AM, Will Coleda via RT
wrote:
>
> On Sat May 30 10:58:04 2009, a...@ali.as wrote:
> > As requested by chromatic
> >
> > http://use.perl.org/~korpenkraxar/journal/39051
>
> This url is now a 404. Anyone have the original text
Here is the archived text:
http://web.archi
On Sat May 30 10:58:04 2009, a...@ali.as wrote:
> As requested by chromatic
>
> http://use.perl.org/~korpenkraxar/journal/39051
This url is now a 404. Anyone have the original text?
--
Will "Coke" Coleda
I'm not sure what testable condition you'd want to use, but as a
starting point I'd suggest that you execute the loop and then confirm
that the total memory consumed by the process is lower than some
anticipated threshold.
You could pick something like 1 meg as a starting point perhaps?
Adam K
O
# New Ticket Created by a...@ali.as
# Please include the string: [perl #66152]
# in the subject line of all future correspondence about this issue.
# http://rt.perl.org/rt3/Ticket/Display.html?id=66152 >
As requested by chromatic
http://use.perl.org/~korpenkraxar/journal/39051