Front page | perl.perl5.porters |
Postings from July 2010
On Fri, 9 Jul 2010 10:30:48 +0200, Reini Urban <rurban@x-ray.at> wrote:
> >> $ time perl -e 'sub f { my($n)=@_; my $h=bless { 1..10 }; return $n if $n < 2; f($n-1)+f($n-2) } f(25)'
>
> The ackerman with 25 recursions is probably to small. I used 28 to get
> longer runtimes > 5 sec < 30 sec.
> Some array access, simple IO and string (regex + realloc) should
> probably be added.
> A Schwartzian Transform maybe.
> And use of a big core module. I use Module::Build in my tests because
> this is the biggest op-wise and the worst.
>
> $ time $perl -e 'sub f { my($n)=@_; my $h=bless { 1..10 }; return $n
> if $n < 2; f($n-1)+f($n-2) } f(28)'
perl-xxx -we 'sub f{my($n)=@_;my$h=bless{1..10};$n<2 and return $n;f($n-1)+f($n-2)}f(28)'
rank elapsed pass perl perl rank
==== ========== ==== ================= ================== ====
1 2.38609 PASS base/perl5.00504 /usr/bin/perl 29
2 2.40302 PASS base/perl5.8.1 /pro/bin/perl 28
3 2.42966 PASS base/perl5.8.7 base/perl5.00307 32
4 2.44061 PASS base/perl5.00503 base/perl5.00405 30
5 2.48835 PASS base/perl5.8.0 base/perl5.00503 4
6 2.51250 PASS base/perl5.13.1 base/perl5.00504 1
7 2.53277 PASS base/perl5.8.5 base/perl5.6.0 17
8 2.55492 PASS base/perl5.8.8 base/perl5.6.1 9
9 2.55535 PASS base/perl5.6.1 base/perl5.6.2 16
10 2.57547 PASS base/perl5.13.2 base/perl5.8.0 5
11 2.58042 PASS base/perl5.8.3 base/perl5.8.1 2
12 2.58399 PASS base/perl5.8.2 base/perl5.8.2 12
13 2.58587 PASS base/perl5.8.4 base/perl5.8.3 11
14 2.59937 PASS base/perl5.8.6 base/perl5.8.4 13
15 2.60227 PASS base/perl5.8.9 base/perl5.8.5 7
16 2.60967 PASS base/perl5.6.2 base/perl5.8.6 14
17 2.61142 PASS base/perl5.6.0 base/perl5.8.7 3
18 2.63004 PASS base/perl5.11.4 base/perl5.8.8 8
19 2.64777 PASS base/perl5.10.1 base/perl5.8.9 15
20 2.65387 PASS base/perl5.11.2 base/perl5.10.0 31
21 2.66556 PASS base/perl5.11.5 base/perl5.10.1 19
22 2.68012 PASS base/perl5.11.3 base/perl5.11.0 24
23 2.72102 PASS base/perl5.12.0 base/perl5.11.1 27
24 2.72846 PASS base/perl5.11.0 base/perl5.11.2 20
25 2.72992 PASS base/perl5.12.1 base/perl5.11.3 22
26 2.73898 PASS base/perl5.13.0 base/perl5.11.4 18
27 2.77586 PASS base/perl5.11.1 base/perl5.11.5 21
28 2.79090 PASS /pro/bin/perl base/perl5.12.0 23
29 3.31142 PASS /usr/bin/perl base/perl5.12.1 25
30 3.57844 PASS base/perl5.00405 base/perl5.13.0 26
31 3.61967 PASS base/perl5.10.0 base/perl5.13.1 6
32 4.43641 PASS base/perl5.00307 base/perl5.13.2 10
--
H.Merijn Brand http://tux.nl Perl Monger http://amsterdam.pm.org/
using 5.00307 through 5.12 and porting perl5.13.x on HP-UX 10.20, 11.00,
11.11, 11.23, and 11.31, OpenSuSE 10.3, 11.0, and 11.1, AIX 5.2 and 5.3.
http://mirrors.develooper.com/hpux/ http://www.test-smoke.org/
http://qa.perl.org http://www.goldmark.org/jeff/stupid-disclaimers/
Thread Previous
|
Thread Next