Front page | perl.perl5.porters |
Postings from September 2010
All gone
Thread Next
From:
Reini Urban
Date:
September 13, 2010 14:14
Subject:
All gone
Message ID:
AANLkTin8+MAUTsNPQyYk+ax-9cAfRa1LEFMrMaGSirUb@mail.gmail.com
$ ./runbench.sh
sub f{my($n)=@_;$n==8 and bless{1..4}and$a=~s/$/../;$n<2 and
return$n;f($n-1)+f($n-2)}f(33)
perl5.8.9-nt 10.31
perl5.10.1-nt 10.82
perl5.11.3-nt 11.25
perl5.12.1-nt 10.74
perl5.13.1-nt 10.68
perl5.13.2-nt 10.31
perl5.13.3-nt 10.12
perl5.13.4-nt 11.96
perl5.13.5-nt 11.55
$ cat runbensh.sh
#!/bin/sh
cat bench.pl
for p in perl5.6* perl5.8* perl5.1*
do
echo -n "$p "
/usr/bin/time --format "%e" ./$p bench.pl 2>&1 | tee bench-$p.log
done
--
Reini Urban
http://phpwiki.org/ http://murbreak.at/
Thread Next