develooper Front page | perl.perl5.porters | Postings from January 2014

Slowest JAPH ever?

Thread Next
From:
Father Chrysostomos
Date:
January 4, 2014 14:33
Subject:
Slowest JAPH ever?
Message ID:
20140104143258.10279.qmail@lists-nntp.develooper.com
$|=1;
sub word($) {
    my $x = "a";
    for (1..shift) { $x++ }
    $x
}
print ucfirst word 190469;
print " ";
print lcfirst word 482466755;
print " ";
print ucfirst word 285075;
print " ";
print lcfirst word 95568295;
print ",\n";


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About